code.delx.au - gnu-emacs/blob - test/indent/perl.perl

   1 #!/usr/bin/perl
   2 # -*- eval: (bug-reference-mode 1) -*-
   3
   4 print <<"EOF1" . s/he"llo/th'ere/;
   5 foo
   6 EOF2
   7 bar
   8 EOF1
   9
  10
  11 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
  12 foo
  13 EOF2
  14 bar
  15 EOF1
  16 bar
  17 EOF2
  18
  19 $fileType_filesButNot           # bug#12373?
  20     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );