# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1115320803 0
# Node ID 7dbe52d92117241019f319c9c8c86188accbcb1e
# Parent  3deee372e47e7e695a4d3c79c8467199e896536f
Avoid $! for font-lock-negation-char-face.

diff -r 3deee372e47e -r 7dbe52d92117 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Thu May 05 19:10:58 2005 +0000
+++ b/lisp/progmodes/cperl-mode.el	Thu May 05 19:20:03 2005 +0000
@@ -4752,8 +4752,8 @@
 		       3 font-lock-variable-name-face)))
 	    '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
 	      4 font-lock-variable-name-face)
-	    ;; Avoid s!!, qq!! etc. when not fontifying syntaxically
-	    '("\\(?:^\\|[^smywqrx]\\)\\(!\\)" 1 font-lock-negation-char-face)
+	    ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntaxically
+	    '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
 	    '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
 	  (setq
 	   t-font-lock-keywords-1