t/lib/sample-tests/shbang_misparse

   1 #!/usr/bin/perl-latest
   2
   3 # The above #! line was misparsed as having a -t.
   4 # Pre-5.8 this will simply cause perl to choke, since there was no -t.
   5 # Post-5.8 taint warnings will mistakenly be on.
   6
   7 print "1..2\n";
   8 print "ok 1\n";
   9 my $warning = '';
  10 $SIG{__WARN__} = sub { $warning .= $_[0] };
  11 eval("#" . substr($0, 0, 0));
  12 print $warning ? "not ok 2\n" : "ok 2\n";