[PATCH] bug in utf8.c(?)

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

p4raw-id: //depot/perl@17928

diff --git a/utf8.c b/utf8.c
index 7ee3859..a5e92cb 100644 (file)
--- 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);