From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 May 2001 17:23:40 +0000 (+0000)
Subject: A slightly more serious bug found by -Mutf8; op/misc and
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad24be35e7299aff8f75c9697a5ebd0449af2a85;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)))