From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 23 Nov 2004 00:04:24 +0000 (+0000)
Subject: [perl #3422] [PATCH] CHECK routine called after syntax error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11e0918319405058a6ccbf925030be482a1dbc2d;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 8b31e6f..cc575e3 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;