summaryrefslogtreecommitdiff
path: root/t/lib/croak/pp_ctl
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/croak/pp_ctl')
-rw-r--r--t/lib/croak/pp_ctl7
1 files changed, 7 insertions, 0 deletions
diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl
index ec664138e0..42319ff2e8 100644
--- a/t/lib/croak/pp_ctl
+++ b/t/lib/croak/pp_ctl
@@ -1,4 +1,11 @@
__END__
+# NAME goto into foreach
+no warnings 'deprecated';
+goto f;
+foreach(1){f:}
+EXPECT
+Can't "goto" into the middle of a foreach loop at - line 3.
+########
# NAME dump with computed label
no warnings 'deprecated';
my $label = "foo";