[perl5.git] / t / lib / sample-tests / shbang_misparse

#!/usr/bin/perl-latest

# The above #! line was misparsed as having a -t.
# Pre-5.8 this will simply cause perl to choke, since there was no -t.
# Post-5.8 taint warnings will mistakenly be on.

print "1..2\n";
print "ok 1\n";
my $warning = '';
$SIG{__WARN__} = sub { $warning .= $_[0] };
eval("#" . substr($0, 0, 0));
print $warning ? "not ok 2\n" : "ok 2\n";
Commit	Line	Data
6e5a998b MS	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";