Commit | Line | Data |
---|---|---|
b08b6da7 SM |
1 | #!/usr/bin/perl |
2 | # -*- eval: (bug-reference-mode 1) -*- | |
3 | ||
5d03fb43 SM |
4 | use v5.14; |
5 | ||
6 | my $str= <<END; | |
7 | Hello | |
8 | END | |
9 | ||
10 | my $a = $'; | |
11 | ||
12 | my $b=3; | |
13 | ||
14 | print $str; | |
c0868451 SM |
15 | if ($c && /====/){xyz;} |
16 | ||
5ba339c7 SM |
17 | print "a" . <<EOF . s/he"llo/th'ere/; |
18 | It's a surprise! | |
19 | EOF | |
20 | ||
21 | print <<\EOF1 . s/he"llo/th'ere/; | |
323885fd SM |
22 | foo |
23 | EOF2 | |
24 | bar | |
25 | EOF1 | |
26 | ||
27 | ||
28 | print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/; | |
29 | foo | |
30 | EOF2 | |
31 | bar | |
32 | EOF1 | |
33 | bar | |
34 | EOF2 | |
35 | ||
062e286b SM |
36 | print $'; # This should not start a string! |
37 | ||
38 | print "hello" for /./; | |
39 | ||
b08b6da7 SM |
40 | $fileType_filesButNot # bug#12373? |
41 | = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} ); |