emacs/test/indent/perl.perl

#!/usr/bin/perl
# -*- eval: (bug-reference-mode 1) -*-

if ($c && /====/){xyz;}

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

print $'; # This should not start a string!

print "hello" for /./;

$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 (perl-syntax-propertize-function): Slash after &, \|, +, - and * can't be a division. Fixes: debbugs:17317 2014-04-22 21:56:18 -04:00			`if ($c && /====/){xyz;}`

* 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/perl-mode.el (perl-syntax-propertize-function): Handle $' used as a variable. Fixes: debbugs:17174 2014-04-02 20:41:09 -04:00			`print $'; # This should not start a string!`

			`print "hello" for /./;`

* 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}} );`