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.
10 $SIG{__WARN__} = sub { $warning .= $_[0] };
11 eval( "#" . substr( $0, 0, 0 ) );
12 print $warning ? "not ok 2\n" : "ok 2\n";