From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 12 Feb 1999 11:09:27 +0000 (+0000)
Subject: add missing hunk in change#2657
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2093a06980c0ef77ac4631e8b8f383be904f06a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }