emacs/test/lisp/progmodes/cperl-mode-resources/cperl-bug-25098.pl
Harald Jörg dd9385b404 ; perl-mode.el: Detect quote-like operator immediately after =>
* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
Detect a quotelike operator immediately after a fat comma "=>"
(Bug#25098)

* test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-25098):
Test case for the bug with code from the bug report.

* test/lisp/progmodes/cperl-mode-resources/cperl-bug-25098.pl:
Resource file for the test.
2021-06-09 23:04:09 +02:00

21 lines
689 B
Perl

# Code from the bug report Bug#25098
my $good = XML::LibXML->load_xml( string => q{<div class="clearfix">});
my $bad = XML::LibXML->load_xml( string =>q{<div class="clearfix">});
# Related: Method calls are no quotelike operators. That's why you
# can't just add '>' to the character class.
my $method_call = $object->q(argument);
# Also related, still not fontified correctly:
#
# my $method_call = $object -> q (argument);
#
# perl-mode interprets the method call as a quotelike op (because it
# is preceded by a space).
# cperl-mode gets the argument right, but marks q as a quotelike op.
#
# my $greater = 2>q/1/;
#
# perl-mode doesn't identify this as a quotelike op.