diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-31 15:37:52 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-31 15:27:49 +0000 |
| commit | 5c9aa243fcc1509167c9708b74c0f9451983e63b (patch) | |
| tree | 3836db23368a8eaf52251f153213bdf99408780a /t/lib | |
| parent | 62961d2e50d22e7ae5a679eac7bf6d593193e108 (diff) | |
| download | perl-5c9aa243fcc1509167c9708b74c0f9451983e63b.tar.gz | |
forbid -l _ after -T _
Message-ID: <20020131143752.A1452@rafael>
p4raw-id: //depot/perl@14506
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/pp_sys | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index e30637b0d4..4b9c8b1a96 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -83,9 +83,6 @@ flock STDIN, 8; flock $a, 8; - The stat preceding lstat() wasn't an lstat %s [pp_stat] - lstat(STDIN); - warn(warn_nl, "stat"); [pp_stat] -T on closed filehandle %s @@ -347,24 +344,6 @@ stat "abc\ndef"; EXPECT Unsuccessful stat on filename containing newline at - line 3. ######## -# pp_sys.c [pp_stat] -use Config; -BEGIN { - if ($^O eq 'd_lstat') { - print <<EOM ; -SKIPPED -# lstat not present -EOM - exit ; - } -} -use warnings 'io' ; -lstat(STDIN) ; -no warnings 'io' ; -lstat(STDIN) ; -EXPECT -The stat preceding lstat() wasn't an lstat at - line 13. -######## # pp_sys.c [pp_fttext] use warnings qw(unopened closed) ; close STDIN ; |