diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-28 14:10:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-28 14:10:44 +0000 |
| commit | 977e4b84b53748ef9b12f9212931c185ba771712 (patch) | |
| tree | 09ac7e129bac2b4a6eb65b9fe37ae3ace255d5ac /regexec.c | |
| parent | 12df23ee23bab7313f8619710677aae3d931aa7a (diff) | |
| download | perl-977e4b84b53748ef9b12f9212931c185ba771712.tar.gz | |
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
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) ( \ |