op.c:newMYSUB: inline var used only once

as of the previous commit

diff --git a/op.c b/op.c
index 0272f33..705374b 100644 (file)
--- 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;
     }