diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-03-11 15:35:22 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-11 12:54:16 +0000 |
| commit | 365c80fab893fcefdfe12b07c44433776da0feed (patch) | |
| tree | 82baccf2ad35e95dac92affc53e85af91e9f154b /t/lib | |
| parent | 922e63eb2a10a42031c9a8efd75ba40829412af4 (diff) | |
| download | perl-365c80fab893fcefdfe12b07c44433776da0feed.tar.gz | |
Re: Smoke 15089 Tru64/OSF Problems: numconvert, lstat
warnings
Message-Id: <20020311143522.A7431@rafael>
p4raw-id: //depot/perl@15168
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/pp_sys | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index 8dc0bf90a4..be8bb6244c 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -403,16 +403,18 @@ binmode() on unopened filehandle at - line 4. ######## # pp_sys.c [pp_lstat] use warnings 'io'; -lstat STDIN; +open FH, "harness" or die "# $!"; +lstat FH; open my $fh, $0 or die "# $!"; lstat $fh; no warnings 'io'; -lstat STDIN; +lstat FH; lstat $fh; +close FH; close $fh; EXPECT -lstat() on filehandle STDIN at - line 3. -lstat() on filehandle $fh at - line 5. +lstat() on filehandle FH at - line 4. +lstat() on filehandle $fh at - line 6. ######## # pp_sys.c [pp_getc] use warnings qw(unopened closed) ; |