2012-10-30 22:45:34 -04:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
# -*- eval: (bug-reference-mode 1) -*-
|
|
|
|
|
|
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
|
|
|
|
|
|
2014-04-02 20:41:09 -04:00
|
|
|
print $'; # This should not start a string!
|
|
|
|
|
|
|
|
|
|
print "hello" for /./;
|
|
|
|
|
|
2012-10-30 22:45:34 -04:00
|
|
|
$fileType_filesButNot # bug#12373?
|
|
|
|
|
= join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
|
