test/indent/perl.perl

   1 #!/usr/bin/perl
   2 # -*- eval: (bug-reference-mode 1) -*-
   3
   4 if ($c && /====/){xyz;}
   5
   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/;
  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
  25 print $'; # This should not start a string!
  26
  27 print "hello" for /./;
  28
  29 $fileType_filesButNot           # bug#12373?
  30     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );