From: Marty Pauley <marty+p5p@kasei.com>
Date: Fri, 20 Sep 2002 10:55:33 +0000 (+0100)
Subject: [PATCH] bug in utf8.c(?)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b4bd638ab397a4d93192b8f54f8161045373803;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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);