# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016261551 0
# Node ID 5ef08437e801d131d8e124358f2fe6249c913936
# Parent  fc8561532c8141e3cccba1b3fe3f6e2fe8eaf300
(cperl-imenu--function-name-regexp-perl):
Move definition above cperl-outline-regexp.

diff -r fc8561532c81 -r 5ef08437e801 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Sat Mar 16 06:51:23 2002 +0000
+++ b/lisp/progmodes/cperl-mode.el	Sat Mar 16 06:52:31 2002 +0000
@@ -1241,6 +1241,14 @@
 The expansion is entirely correct because it uses the C preprocessor."
   t)
 
+(defvar cperl-imenu--function-name-regexp-perl
+  (concat
+   "^\\("
+       "[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?"
+     "\\|"
+       "=head\\([12]\\)[ \t]+\\([^\n]+\\)$"
+   "\\)"))
+
 (defvar cperl-outline-regexp
   (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))
 
@@ -4297,14 +4305,6 @@
       ;; Previous space could have gone:
       (or (memq (preceding-char) '(?\ ?\t)) (insert " "))))))
 
-(defvar cperl-imenu--function-name-regexp-perl
-  (concat
-   "^\\("
-       "[ \t]*\\(sub\\|package\\)[ \t\n]+\\([a-zA-Z_0-9:']+\\)[ \t]*\\(([^()]*)[ \t]*\\)?"
-     "\\|"
-       "=head\\([12]\\)[ \t]+\\([^\n]+\\)$"
-   "\\)"))
-
 (defun cperl-imenu-addback (lst &optional isback name)
   ;; We suppose that the lst is a DAG, unless the first element only
   ;; loops back, and ISBACK is set.  Thus this function cannot be