From 9ed9fd3572ef8b4c2bf19e64fbb19823215cc3d8 Mon Sep 17 00:00:00 2001
From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Thu, 5 May 2005 19:20:03 +0000
Subject: [PATCH] Avoid $! for font-lock-negation-char-face.

---
 lisp/progmodes/cperl-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 35957457a9a..e32a43ede9e 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -4752,8 +4752,8 @@ indentation and initial hashes.  Behaves usually outside of comment."
 		       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
-- 
2.39.2