diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 11:09:27 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 11:09:27 +0000 |
| commit | a2093a06980c0ef77ac4631e8b8f383be904f06a (patch) | |
| tree | ea10efacdfc573677b167cd7edade325fbec7b00 /ext | |
| parent | 648cac195c82cb1f1b31f3751c1a36107e153a68 (diff) | |
| download | perl-a2093a06980c0ef77ac4631e8b8f383be904f06a.tar.gz | |
add missing hunk in change#2657
p4raw-link: @2657 on //depot/cfgperl: e0c90f07381288b70a424e2e76ab453c6c64c0e1
p4raw-id: //depot/perl@2894
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/CC.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index d8cc090479..08429cb0a7 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; } |