Handle "my" and "our" keywords in Perl imenu (Bug#8261).

* progmodes/perl-mode.el (perl-imenu-generic-expression): Only match
variables declared via `my' or `our'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3df4ba3..3d2cb34 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-08  Ralph Schleicher  <rs@ralph-schleicher.de>
+
+       * progmodes/perl-mode.el (perl-imenu-generic-expression): Only
+       match variables declared via `my' or `our' (Bug#8261).
+
 2011-05-08  Chong Yidong  <cyd@stupidchicken.com>
 
        * progmodes/grep.el (grep-mode-font-lock-keywords): Remove

diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index ed62873..8ca8c69 100644 (file)
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -166,7 +166,7 @@ The expansion is entirely correct because it uses the C preprocessor."
   '(;; Functions
     (nil "^sub\\s-+\\([-A-Za-z0-9+_:]+\\)" 1)
     ;;Variables
-    ("Variables" "^\\([$@%][-A-Za-z0-9+_:]+\\)\\s-*=" 1)
+    ("Variables" "^\\(?:my\\|our\\)\\s-+\\([$@%][-A-Za-z0-9+_:]+\\)\\s-*=" 1)
     ("Packages" "^package\\s-+\\([-A-Za-z0-9+_:]+\\);" 1)
     ("Doc sections" "^=head[0-9][ \t]+\\(.*\\)" 1))
   "Imenu generic expression for Perl mode.  See `imenu-generic-expression'.")