[bpt/emacs.git] / 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

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

print "hello" for /./;

$fileType_filesButNot           # bug#12373?
    = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
Commit	Line	Data
b08b6da7 SM	1	#!/usr/bin/perl
	2	# -- eval: (bug-reference-mode 1) --
	3
323885fd SM	4	print <<"EOF1" . s/he"llo/th'ere/;
	5	foo
	6	EOF2
	7	bar
	8	EOF1
	9
	10
	11	print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
	12	foo
	13	EOF2
	14	bar
	15	EOF1
	16	bar
	17	EOF2
	18
062e286b SM	19	print $'; # This should not start a string!
	20
	21	print "hello" for /./;
	22
b08b6da7 SM	23	$fileType_filesButNot # bug#12373?
b08b6da7 SM	24	= join( '\|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );