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

   1 #!/usr/bin/perl
   2 # -*- eval: (bug-reference-mode 1) -*-
   3
   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;
  15 if ($c && /====/){xyz;}
  16
  17 print << "EOF1" . s/he"llo/th'ere/;
  18 foo
  19 EOF2
  20 bar
  21 EOF1
  22
  23
  24 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
  25 foo
  26 EOF2
  27 bar
  28 EOF1
  29 bar
  30 EOF2
  31
  32 print $'; # This should not start a string!
  33
  34 print "hello" for /./;
  35
  36 $fileType_filesButNot           # bug#12373?
  37     = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );