This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for perl #112316: Wrong behavior regarding labels with same prefix
[perl5.git] / t / op / loopctl.t
index 6b4e5c6..3a8fc9a 100644 (file)
@@ -36,7 +36,7 @@ BEGIN {
 }
 
 require "test.pl";
-plan( tests => 54 );
+plan( tests => 55 );
 
 my $ok;
 
@@ -994,3 +994,15 @@ cmp_ok($ok,'==',1,'dynamically scoped');
     }
     is($x_21469, 'X', "bug 21469: X okay at end of loop");
 }
+
+# [perl #112316] Wrong behavior regarding labels with same prefix
+{
+    my $fail;
+    CATCH: {
+    CATCHLOOP: {
+            last CATCH;
+        }
+        $fail = 1;
+    }
+    ok(!$fail, "perl 112316: Labels with the same prefix don't get mixed up.");
+}