2 # -*- eval: (bug-reference-mode 1) -*-
4 if ($c && /====/){xyz
;}
6 print "a" . <<EOF . s/he"llo/th'ere/;
10 print <<\EOF1
. s/he"llo/th'ere/;
17 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
25 print $'; # This should not start a string!
27 print "hello" for /./;
29 $fileType_filesButNot # bug#12373?
30 = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );