[bpt/emacs.git] / test / indent / perl.perl

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

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

print "a" . <<EOF . s/he"llo/th'ere/;
It's a surprise!
EOF

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
5ba339c7 SM	6	print "a" . <<EOF . s/he"llo/th'ere/;
	7	It's a surprise!
	8	EOF
	9
	10	print <<\EOF1 . s/he"llo/th'ere/;
323885fd SM	11	foo
	12	EOF2
	13	bar
	14	EOF1
	15
	16
	17	print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
	18	foo
	19	EOF2
	20	bar
	21	EOF1
	22	bar
	23	EOF2
	24
062e286b SM	25	print $'; # This should not start a string!
	26
	27	print "hello" for /./;
	28
b08b6da7 SM	29	$fileType_filesButNot # bug#12373?
b08b6da7 SM	30	= join( '\|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );