diff options
| -rw-r--r-- | pod/perldiag.pod | 2 | ||||
| -rw-r--r-- | pp_ctl.c | 2 | ||||
| -rw-r--r-- | t/lib/croak/pp_ctl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 005147536f..9ded5065ab 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -1076,7 +1076,7 @@ usually double the curlies to get the same effect though, because the inner curlies will be considered a block that loops once. See L<perlfunc/last>. -=item Can't leave "when" outside a loop +=item Can't leave "when" outside a loop block (F) Control reached the end of a C<when> block that isn't inside any loop (including a C<given> block). An implicit C<next> occurs here, @@ -4651,7 +4651,7 @@ PP(pp_leavewhen) cxix = dopoptoloop(cxstack_ix); if (cxix < 0) - DIE(aTHX_ "Can't leave \"when\" outside a loop"); + DIE(aTHX_ "Can't leave \"when\" outside a loop block"); oldsp = PL_stack_base + cx->blk_oldsp; if (gimme == G_VOID) diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl index 09332551ef..35c833925e 100644 --- a/t/lib/croak/pp_ctl +++ b/t/lib/croak/pp_ctl @@ -10,4 +10,4 @@ Can't find label foo at - line 3. use 5.01; no warnings 'experimental::smartmatch'; when(!defined){} EXPECT -Can't leave "when" outside a loop at - line 2. +Can't leave "when" outside a loop block at - line 2. |