This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Exit via last, part 1
authorMichael G. Schwern <schwern@pobox.com>
Sat, 14 Apr 2001 22:13:59 +0000 (23:13 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 15 Apr 2001 21:39:21 +0000 (21:39 +0000)
Message-ID: <20010414221359.A413@blackrider.blackstar.co.uk>

p4raw-id: //depot/perl@9711

t/op/loopctl.t

index a7416f2..2ed9df1 100644 (file)
@@ -31,7 +31,7 @@
 #
 #  -- .robin. <robin@kitsite.com>  2001-03-13
 
-print "1..39\n";
+print "1..41\n";
 
 my $ok;
 
@@ -923,3 +923,24 @@ TEST39: {
     }
 }
 print ($ok ? "ok 39\n" : "not ok 39\n");
+
+
+### Test that loop control is dynamicly scoped.
+
+sub test_last_label { last TEST40 }
+
+TEST40: {
+    $ok = 1;
+    test_last_label();
+    $ok = 0;
+}
+print ($ok ? "ok 40\n" : "not ok 40\n");
+
+sub test_last { last }
+
+TEST41: {
+    $ok = 1;
+    test_last();
+    $ok = 0;
+}
+print ($ok ? "ok 41\n" : "not ok 41\n");