Fix for

Subject: [ID 20001109.003] Not OK: perl v5.7.0 +DEVEL7620 on PA-RISC2.0 11.00 (UNINSTALLED)
Message-Id: <20001109110452.66CF.H.M.BRAND@hccnet.nl>

p4raw-id: //depot/perl@7624

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 875e09d..2fe63ba 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -3249,7 +3249,7 @@ will deny it.
 The function indicated isn't implemented on this architecture, according
 to the probings of Configure.
 
-=item The stat preceding C<-l _> wasn't an lstat
+=item The stat preceding %s wasn't an lstat
 
 (F) It makes no sense to test the current stat buffer for symbolic
 linkhood if the last stat that wrote to the stat buffer already went

diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys
index c09acf3..66f3e75 100644 (file)
--- a/t/pragma/warn/pp_sys
+++ b/t/pragma/warn/pp_sys
@@ -74,7 +74,7 @@
     flock STDIN, 8;
     flock $a, 8;
 
-  lstat() on filehandle %s                     [pp_stat]
+  The stat preceding lstat() wasn't an lstat %s        [pp_stat]
     lstat(STDIN);
 
   warn(warn_nl, "stat");                       [pp_stat]
@@ -354,7 +354,7 @@ lstat(STDIN) ;
 no warnings 'io' ;
 lstat(STDIN) ;
 EXPECT
-lstat() on filehandle STDIN at - line 13.
+The stat preceding lstat() wasn't an lstat at - line 13.
 ########
 # pp_sys.c [pp_fttext]
 use warnings qw(unopened closed) ;