diff options
| -rw-r--r-- | pod/perldiag.pod | 2 | ||||
| -rw-r--r-- | t/pragma/warn/pp_sys | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 875e09d6d8..2fe63ba744 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 c09acf34e0..66f3e750db 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) ; |