Stop my subs with syntax errors from leaking

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index b3ac10d3d1..3480a6c20e 100644
--- a/op.c
+++ b/op.c
@@ -6970,6 +6970,8 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 
     if (PL_parser && PL_parser->error_count) {
 	op_free(block);
+	SvREFCNT_dec(PL_compcv);
+	PL_compcv = 0;
 	goto done;
     }