[PATCH] bug in utf8.c(?)

Subject: [PATCH] bug in utf8.c(?)

p4raw-id: //depot/perl@17928

1 files changed, 1 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index 7ee3859d08..a5e92cb7c8 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1542,6 +1542,7 @@ Perl_swash_init(pTHX_ char* pkg, char* name, SV *listsv, I32 minbits, I32 none)
     if (PL_curcop == &PL_compiling) {
 	/* XXX ought to be handled by lex_start */
 	SAVEI32(PL_in_my);
+	PL_in_my = 0;
 	sv_setpv(tokenbufsv, PL_tokenbuf);
     }
     errsv_save = newSVsv(ERRSV);