emacs/test/indent/perl.perl

#!/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}} );
* lisp/progmodes/sh-script.el (sh--inside-arithmetic-expression): New func. (sh-font-lock-open-heredoc): Use it. Fixes: debbugs:12770 2012-10-30 22:45:34 -04:00			`#!/usr/bin/perl`
			`# -- eval: (bug-reference-mode 1) --`

* lisp/progmodes/perl-mode.el: Add support for here documents. (perl-syntax-propertize-function): Match here-doc markers. (perl-syntax-propertize-special-constructs): Find their end. (perl-imenu-generic-expression): Use [:alnum:]. 2013-05-06 15:33:56 -04:00			`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`

* lisp/progmodes/sh-script.el (sh--inside-arithmetic-expression): New func. (sh-font-lock-open-heredoc): Use it. Fixes: debbugs:12770 2012-10-30 22:45:34 -04:00			`$fileType_filesButNot # bug#12373?`
			`= join( '\|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );`