move PL_in_my and PL_in_my_stash into the PL_parser struct

p4raw-id: //depot/perl@31203

1 files changed, 0 insertions, 3 deletions

diff --git a/utf8.c b/utf8.c
index b44057c40d..e6cbd48208 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1595,9 +1595,6 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits
     PUSHs(sv_2mortal(newSViv(none)));
     PUTBACK;
     if (IN_PERL_COMPILETIME) {
-	/* XXX ought to be handled by lex_start */
-	SAVEI16(PL_in_my);
-	PL_in_my = 0;
 	sv_setpv(tokenbufsv, PL_tokenbuf);
     }
     errsv_save = newSVsv(ERRSV);