arrange for next() to resume at the unstack op rather than the

loop conditional, so that scope cleanup happens correctly
(from Stephen McCamant)

p4raw-id: //depot/perl@5927

1 files changed, 6 insertions, 0 deletions

diff --git a/t/op/misc.t b/t/op/misc.t
index ac1a44fadb..1673b273d7 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -545,3 +545,9 @@ ucfirst - World
 lcfirst - world
 uc - WORLD
 lc - world
+########
+sub f { my $a = 1; my $b = 2; my $c = 3; my $d = 4; next }
+my $x = "foo";
+{ f } continue { print $x, "\n" }
+EXPECT
+foo