#!./perl -t
chdir 't';
}
my $Tmsg =
'while running with -t switch';
is( ${^TAINT}, -1, '${^TAINT} == -1' );
is( $out, "Hello\n", '`` worked' );
{
is( $out, "Hello\n", '`` worked' ); }
# Get ourselves a tainted variable.
'unlink() taint warn' );
ok( !$^W, "-t doesn't enable regular warnings" );