# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1111520593 0
# Node ID cd1a709e8af318ff896bb26c67f6796f15fd94db
# Parent  58727a5c98c40ac304cb58a5f50bca208ee51f86
(perl-font-lock-keywords-2):
Accept qualified variable and function names.

diff -r 58727a5c98c4 -r cd1a709e8af3 lisp/progmodes/perl-mode.el
--- a/lisp/progmodes/perl-mode.el	Tue Mar 22 18:48:38 2005 +0000
+++ b/lisp/progmodes/perl-mode.el	Tue Mar 22 19:43:13 2005 +0000
@@ -207,11 +207,11 @@
     '("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
     ;;
     ;; Fontify function, variable and file name references.
-    '("&\\(\\sw+\\)" 1 font-lock-function-name-face)
+    '("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face)
     ;; Additionally underline non-scalar variables.  Maybe this is a bad idea.
     ;;'("[$@%*][#{]?\\(\\sw+\\)" 1 font-lock-variable-name-face)
-    '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
-    '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
+    '("[$*]{?\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-variable-name-face)
+    '("\\([@%]\\|\\$#\\)\\(\\sw+\\(::\\sw+\\)*\\)"
       (2 (cons font-lock-variable-name-face '(underline))))
     '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
     ;;