add missing hunk in change#2657

p4raw-link: @2657 on //depot/cfgperl: e0c90f07381288b70a424e2e76ab453c6c64c0e1

p4raw-id: //depot/perl@2894

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index d8cc090..08429cb 100644 (file)
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -1009,7 +1009,13 @@ sub pp_grepstart {
        $need_freetmps = 0;
     }
     write_back_stack();
-    doop($op);
+    my $sym= doop($op);
+    my $next=$op->next;
+    $next->save;
+    my $nexttonext=$next->next;
+    $nexttonext->save;
+    runtime(sprintf("if (PL_op == (($sym)->op_next)->op_next) goto %s;",
+                   label($nexttonext)));
     return $op->next->other;
 }
 
@@ -1027,7 +1033,8 @@ sub pp_mapstart {
     $next->save;
     my $nexttonext=$next->next;
     $nexttonext->save;
-    runtime(sprintf("if (PL_op == (($sym)->op_next)->op_next) goto %s;", label($nexttonext)));
+    runtime(sprintf("if (PL_op == (($sym)->op_next)->op_next) goto %s;",
+                   label($nexttonext)));
     return $op->next->other;
 }