diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-29 18:46:25 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-30 15:57:25 +0000 |
| commit | 317ea90d97caba0232674f77b3cbed1394243c39 (patch) | |
| tree | 7759cdc2fb7ce9d3937aac6424fdd1da46ac68c1 /t/run | |
| parent | d17aa069f1b4912cd5ee512e17998985c6151513 (diff) | |
| download | perl-317ea90d97caba0232674f77b3cbed1394243c39.tar.gz | |
-t without -w
Message-ID: <20011230044625.GA14386@blackrider>
p4raw-id: //depot/perl@13953
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switcht.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/run/switcht.t b/t/run/switcht.t index bb52252291..2ac9ed0d46 100644 --- a/t/run/switcht.t +++ b/t/run/switcht.t @@ -1,4 +1,4 @@ -#!./perl -tw +#!./perl -t BEGIN { chdir 't'; @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 10; +plan tests => 11; my $Perl = which_perl(); @@ -41,3 +41,5 @@ unlink($file); like( $warning, qr/^Insecure dependency in unlink $Tmsg/, 'unlink() taint warn' ); ok( !-e $file, 'unlink worked' ); + +ok( !$^W, "-t doesn't enable regular warnings" ); |