From: H.Merijn Brand 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) ;