X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c25611d58839424e4723cc29fa005047f61b7d2b..f0af002c737e9413e85d737a29c8c9b396c13414:/perly.y

diff --git a/perly.y b/perly.y
index 704728e..91a7613 100644
--- a/perly.y
+++ b/perly.y
@@ -276,18 +276,18 @@ fullstmt:	barestmt
 
 labfullstmt:	LABEL barestmt
 			{
-			  $$ = newSTATEOP(SvUTF8(((SVOP*)$1)->op_sv),
-                                        savepv(SvPVX(((SVOP*)$1)->op_sv)), $2);
+			  $$ = newSTATEOP(SVf_UTF8
+					   * PVAL($1)[strlen(PVAL($1))+1],
+					  PVAL($1), $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);
+			  $$ = newSTATEOP(SVf_UTF8
+					   * PVAL($1)[strlen(PVAL($1))+1],
+					  PVAL($1), $2);
 			  TOKEN_GETMAD($1, cLISTOPx($$)->op_first, 'L');
-			  op_free((OP*)$1);
 			}
 	;