git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/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";