mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
323885fd82
(perl-syntax-propertize-function): Match here-doc markers. (perl-syntax-propertize-special-constructs): Find their end. (perl-imenu-generic-expression): Use [:alnum:].
21 lines
303 B
Perl
Executable File
21 lines
303 B
Perl
Executable File
#!/usr/bin/perl
|
|
# -*- eval: (bug-reference-mode 1) -*-
|
|
|
|
print <<"EOF1" . s/he"llo/th'ere/;
|
|
foo
|
|
EOF2
|
|
bar
|
|
EOF1
|
|
|
|
|
|
print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
|
|
foo
|
|
EOF2
|
|
bar
|
|
EOF1
|
|
bar
|
|
EOF2
|
|
|
|
$fileType_filesButNot # bug#12373?
|
|
= join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
|