diff options
| author | Steve Peters <steve@fisharerojo.org> | 2004-11-23 00:04:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-23 09:26:03 +0000 |
| commit | 11e0918319405058a6ccbf925030be482a1dbc2d (patch) | |
| tree | 3e251022fbc115b0ad35aff2684ba40bf38c6994 /ext | |
| parent | c162e49af577414c7863a0dd3de0ccb3daf6d69d (diff) | |
| download | perl-11e0918319405058a6ccbf925030be482a1dbc2d.tar.gz | |
[perl #3422] [PATCH] CHECK routine called after syntax error
From: "Steve Peters via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-3422-100830.4.45764701781506@perl.org>
p4raw-id: //depot/perl@23526
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 8b31e6f289..cc575e33d0 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2366,6 +2366,8 @@ sub mapop { sub pp_mapwhile { mapop(@_, "map") } sub pp_grepwhile { mapop(@_, "grep") } +sub pp_mapstart { baseop(@_, "map") } +sub pp_grepstart { baseop(@_, "grep") } sub pp_list { my $self = shift; |