Change 15168 by ams@lustre on 2002/03/11 12:54:16
Subject: [PATCH] Re: Smoke 15089 Tru64/OSF Problems: numconvert, lstat
warnings
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 11 Mar 2002 14:35:22 +0100
Message-Id: <20020311143522.A7431@rafael>
Affected files ...
.... //depot/perl/t/lib/warnings/pp_sys#6 edit
Differences ...
==== //depot/perl/t/lib/warnings/pp_sys#6 (text) ====
Index: perl/t/lib/warnings/pp_sys
--- perl/t/lib/warnings/pp_sys.~1~ Mon Mar 11 06:00:05 2002
+++ perl/t/lib/warnings/pp_sys Mon Mar 11 06:00:05 2002
@@ -403,16 +403,18 @@
########
# 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) ;
End of Patch.
