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 (file)
--- 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;