 ;;;  Copyright (c) 2004-2007 bivio Software, Inc.  All rights reserved.
-;;; 
+;;;
 ;;;  Visit http://www.bivio.biz for more info.
-;;;  
+;;;
 ;;;  This library is free software; you can redistribute it and/or modify
 ;;;  it under the terms of the GNU Lesser General Public License as
 ;;;  published by the Free Software Foundation; either version 2.1 of the
 ;;;  License, or (at your option) any later version.
-;;;  
+;;;
 ;;;  This library is distributed in the hope that it will be useful, but
 ;;;  WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 ;;;  Lesser General Public License for more details.
-;;;  
+;;;
 ;;;  You should have received a copy of the GNU Lesser General Public
 ;;;  License along with this library;  If not, you may get a copy from:
 ;;;  http://www.opensource.org/licenses/lgpl-license.html
-;;;  
-;;;  $Id: b-perl.el,v 1.79 2013/01/10 05:49:11 nagler Exp $
 ;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

	     arg
	     (read-string "Case tag: " (thing-at-point 'b-perl-word)))))
    (dired-other-window
     (concat 
      "log/"
      (file-name-sans-extension
       (file-name-nondirectory (buffer-file-name)))))

[
    from_literal => [
        '' => UNDEF(),

    ],
];
" (lambda ()
