A slightly more serious bug found by -Mutf8; op/misc and

lib/complex dumped core.

p4raw-id: //depot/perl@10261

diff --git a/regexec.c b/regexec.c
index 7c168cf..699ba4c 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -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)))