From: Vishal Bhatia <vishal@deja.com>
Date: Sun, 20 Dec 1998 19:03:25 +0000 (-0800)
Subject: pp_next/pp_last/pp_redo problems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e51e4c923d7c75dbb5905605429fcea92ce2814;p=p5sagit%2Fp5-mst-13.2.git

pp_next/pp_last/pp_redo problems

To: perl5-porters@perl.org
Message-ID: <19981221030326.27660.qmail@hotmail.com>

(slightly reformatted)

p4raw-id: //depot/cfgperl@2492
---

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index e6c21bc..a0e0bb9 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -350,8 +350,9 @@ sub dopoptoloop {
 sub dopoptolabel {
     my $label = shift;
     my $cxix = $#cxstack;
-    while ($cxix >= 0 && $cxstack[$cxix]->{type} != CXt_LOOP
-	   && $cxstack[$cxix]->{label} ne $label) {
+    while ($cxix >= 0 &&
+	   ($cxstack[$cxix]->{type} != CXt_LOOP ||
+	    $cxstack[$cxix]->{label} ne $label)) {
 	$cxix--;
     }
     debug "dopoptolabel: returning $cxix" if $debug_cxstack;