From a651a37dec6d3a9749ac62309467d43599db4547 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 4 Dec 1999 22:48:51 +0000 Subject: s/block/loop block/ in diagnostics about next, last, redo p4raw-id: //depot/perl@4646 --- t/pragma/warn/pp_ctl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 't/pragma/warn/pp_ctl') 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' ; -- cgit v1.2.1