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