From: Jarkko Hietaniemi Date: Thu, 28 Feb 2002 14:10:44 +0000 (+0000) Subject: PL_bostr was pointing to the wrong string X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=977e4b84b53748ef9b12f9212931c185ba771712;p=p5sagit%2Fp5-mst-13.2.git PL_bostr was pointing to the wrong string (a string left around from the loading of the Unicode \w) "UTF-8 panic, blocks, coredumps, etc. in debugger with \w and m//g" http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2002-01/msg01267.html p4raw-id: //depot/perl@14914 --- diff --git a/regexec.c b/regexec.c index 887c3bf..deaf859 100644 --- a/regexec.c +++ b/regexec.c @@ -126,7 +126,7 @@ #define HOP3c(pos,off,lim) ((char*)HOP3(pos,off,lim)) #define HOPMAYBE3c(pos,off,lim) ((char*)HOPMAYBE3(pos,off,lim)) -#define LOAD_UTF8_CHARCLASS(a,b) STMT_START { if (!CAT2(PL_utf8_,a)) (void)CAT2(is_utf8_, a)((U8*)b); } STMT_END +#define LOAD_UTF8_CHARCLASS(a,b) STMT_START { if (!CAT2(PL_utf8_,a)) { ENTER; save_re_context(); (void)CAT2(is_utf8_, a)((U8*)b); LEAVE; } } STMT_END /* for use after a quantifier and before an EXACT-like node -- japhy */ #define JUMPABLE(rn) ( \