From b0305fa36f2ab4eebf4c0efdf7cfb2a4c20de12d Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 7 Jul 2012 23:11:23 -0700
Subject: [PATCH] op.c:newMYSUB: inline var used only once

as of the previous commit
---
 op.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/op.c b/op.c
index 0272f33..705374b 100644
--- a/op.c
+++ b/op.c
@@ -6871,7 +6871,6 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
     register CV *cv = NULL;
     register CV *compcv = PL_compcv;
     SV *const_sv;
-    const bool ec = PL_parser && PL_parser->error_count;
     PADNAME *name;
 
     PERL_ARGS_ASSERT_NEWMYSUB;
@@ -6904,7 +6903,7 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 	    SAVEFREEOP(attrs);
     }
 
-    if (ec) {
+    if (PL_parser && PL_parser->error_count) {
 	op_free(block);
 	goto done;
     }
-- 
2.7.4