diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 17:23:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 17:23:40 +0000 |
| commit | ad24be35e7299aff8f75c9697a5ebd0449af2a85 (patch) | |
| tree | b7d063ef6bb408a9462313a5cdf537bcfc95bb70 /regexec.c | |
| parent | 3ba0e062b0fe667e151870a45d4ee2ea831cfb50 (diff) | |
| download | perl-ad24be35e7299aff8f75c9697a5ebd0449af2a85.tar.gz | |
A slightly more serious bug found by -Mutf8; op/misc and
lib/complex dumped core.
p4raw-id: //depot/perl@10261
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2211,6 +2211,7 @@ S_regmatch(pTHX_ regnode *prog) if (!nextchr) sayNO; if (do_utf8) { + LOAD_UTF8_CHARCLASS(alnum,"a"); if (!(OP(scan) == ALNUM ? swash_fetch(PL_utf8_alnum, (U8*)locinput, do_utf8) : isALNUM_LC_utf8((U8*)locinput))) |