another perl-mode indent bug

another perl-mode indent bug

[Karl Chen]

This perl code:
     
    foo(
        sub {
            blah;
        }
        );

indents the closing "}" incorrectly in perl-mode; the patch below
works for me.  It changes `perl-beginning-of-function' to ignore
anonymous subs such as above.


--- /usr/share/emacs/22.0.50/lisp/progmodes/.backup/perl-mode.el.gz.~2~
+++ /usr/share/emacs/22.0.50/lisp/progmodes/perl-mode.el.gz
@@ -921,7 +921,7 @@
   (or arg (setq arg 1))
   (if (< arg 0) (forward-char 1))
   (and (/= arg 0)
-       (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
+       (re-search-backward "^\\s(\\|^\\s-*sub\\b\\s-*\\_<[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
 			   nil 'move arg)
        (goto-char (1- (match-end 0))))
   (point))



-- 
Karl 2006-04-26 19:50

Re: another perl-mode indent bug

[Stefan Monnier]

> This perl code:
     
>     foo(
>         sub {
>             blah;
>         }
>         );

> indents the closing "}" incorrectly in perl-mode; the patch below
> works for me.

Thanks, installed.  There might be a better way to fix the problem, but that
patch seems good in itself.


        Stefan