From 4b40b790ae003032daa612807bc59e17f2c29dca Mon Sep 17 00:00:00 2001
From: Mauro Aranda <maurooaranda@gmail.com>
Date: Fri, 21 Oct 2022 07:45:27 -0300
Subject: [PATCH] Fix last change in perl-mode
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit
* lisp/progmodes/perl-mode.el (perl--syntax-exp-intro-regexp): Escape
$. Reported by Mattias Engdegård.
---
lisp/progmodes/perl-mode.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index c5d5d703fc9..db9df672797 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -223,7 +223,7 @@
(regexp-opt perl--syntax-exp-intro-keywords)
;; A HERE document as an argument to printf?
;; when printing to a filehandle.
- "\\|printf?[ \t]*$?[_[:alpha:]][_[:alnum:]]*"
+ "\\|printf?[ \t]*\\$?[_[:alpha:]][_[:alnum:]]*"
"\\|=>"
"\\|[?:.,;|&*=!~({[]"
"\\|[^-+][-+]" ;Bug#42168: `+' is intro but `++' isn't!
--
2.39.5