From 1231a601ebe1fd9fe454c504dbeb9267440242e7 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Tue, 20 Sep 2022 11:18:45 -0300 Subject: Recognize the backslash operator in perl-mode * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Add new rule to detect a backslash operator. (Bug#11996) * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-11996): New test. * test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl: New file. --- test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl (limited to 'test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl') diff --git a/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl new file mode 100644 index 00000000000..566b7e7550f --- /dev/null +++ b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl @@ -0,0 +1,8 @@ +{ + my @zzzz=(\%seen_couchrequsts, \%seen_people ); + my @zzzz=\(%seen_couchrequsts, %seen_people ); + my @zzzz=(\%seen_couchrequsts, \%seen_people ); +} + +print "\"Watch out\""; +$ref = \"howdy"; -- cgit v1.2.3