Commit | Line | Data |
---|---|---|
6e5a998b | 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"; |