Stop statement labels from leaking

They have leaked since v5.15.9-35-g5db1eb8 (which probably broke mad
dumping of labels; to be addressed in the next commit).

1 files changed, 2 insertions, 0 deletions

diff --git a/perly.y b/perly.y
index 58c4d81380..704728ee21 100644
--- a/perly.y
+++ b/perly.y
@@ -280,12 +280,14 @@ labfullstmt:	LABEL barestmt
                                         savepv(SvPVX(((SVOP*)$1)->op_sv)), $2);
 			  TOKEN_GETMAD($1,
 			      $2 ? cLISTOPx($$)->op_first : $$, 'L');
+			  op_free((OP*)$1);
 			}
 	|	LABEL labfullstmt
 			{
 			  $$ = newSTATEOP(SvUTF8(((SVOP*)$1)->op_sv),
                                         savepv(SvPVX(((SVOP*)$1)->op_sv)), $2);
 			  TOKEN_GETMAD($1, cLISTOPx($$)->op_first, 'L');
+			  op_free((OP*)$1);
 			}
 	;