summaryrefslogtreecommitdiff
path: root/t/pragma/warn/pp_ctl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-04 22:48:51 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-04 22:48:51 +0000
commita651a37dec6d3a9749ac62309467d43599db4547 (patch)
tree78696eed2cfa3b34739b4e84ac2128ec01d73d46 /t/pragma/warn/pp_ctl
parentabdc5761ee5f136ed19d1012429c3fdf2e3671c5 (diff)
downloadperl-a651a37dec6d3a9749ac62309467d43599db4547.tar.gz
s/block/loop block/ in diagnostics about next, last, redo
p4raw-id: //depot/perl@4646
Diffstat (limited to 't/pragma/warn/pp_ctl')
-rw-r--r--t/pragma/warn/pp_ctl2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/pragma/warn/pp_ctl b/t/pragma/warn/pp_ctl
index 70e6d60e8d..f61da1a8e1 100644
--- a/t/pragma/warn/pp_ctl
+++ b/t/pragma/warn/pp_ctl
@@ -126,7 +126,7 @@ no warnings 'unsafe' ;
@b = sort { last } @a ;
EXPECT
Exiting pseudo-block via last at - line 4.
-Can't "last" outside a block at - line 4.
+Can't "last" outside a loop block at - line 4.
########
# pp_ctl.c
use warnings 'unsafe' ;