This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_bostr was pointing to the wrong string
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Feb 2002 14:10:44 +0000 (14:10 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 28 Feb 2002 14:10:44 +0000 (14:10 +0000)
(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

regexec.c

index 887c3bf..deaf859 100644 (file)
--- a/regexec.c
+++ b/regexec.c
 #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) ( \