From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 9 Nov 2000 11:05:52 +0000 (+0100)
Subject: Fix for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e1c7ca2473e809952cdb1837a6181f4d03f3ddf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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) ;