From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Mar 2002 14:35:22 +0000 (+0100)
Subject: Re: Smoke 15089 Tru64/OSF  Problems: numconvert, lstat
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=365c80fab893fcefdfe12b07c44433776da0feed;p=p5sagit%2Fp5-mst-13.2.git

Re: Smoke 15089 Tru64/OSF  Problems: numconvert, lstat
    warnings
   Message-Id: <20020311143522.A7431@rafael>

p4raw-id: //depot/perl@15168
---

diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
index 8dc0bf9..be8bb62 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) ;