[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 (file)
--- 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;