summaryrefslogtreecommitdiff
path: root/t/pragma
diff options
context:
space:
mode:
authorH.Merijn Brand <h.m.brand@xs4all.nl>2000-11-09 12:05:52 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-11-09 13:45:33 +0000
commit5e1c7ca2473e809952cdb1837a6181f4d03f3ddf (patch)
treec35fec667961c6b9486276830bd41a0f91b9442b /t/pragma
parent0b4157167f29504603edb868ef958105102ba24d (diff)
downloadperl-5e1c7ca2473e809952cdb1837a6181f4d03f3ddf.tar.gz
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
Diffstat (limited to 't/pragma')
-rw-r--r--t/pragma/warn/pp_sys4
1 files changed, 2 insertions, 2 deletions
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) ;