From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 11 Feb 2001 17:12:49 +0000 (+0000)
Subject: Retract #8762.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30edbf31611701ee49012392542f33ef851b0523;p=p5sagit%2Fp5-mst-13.2.git

Retract #8762.

p4raw-id: //depot/perl@8769
---

diff --git a/regexec.c b/regexec.c
index 826dae2..c70d1b1 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2075,6 +2075,13 @@ S_regmatch(pTHX_ regnode *prog)
 		sayNO;
 	    break;
 	case SANY:
+	    if (do_utf8) {
+		locinput += PL_utf8skip[nextchr];
+		if (locinput > PL_regeol)
+		    sayNO;
+		nextchr = UCHARAT(locinput);
+		break;
+	    }
 	    if (!nextchr && locinput >= PL_regeol)
 		sayNO;
 	    nextchr = UCHARAT(++locinput);
@@ -3556,7 +3563,15 @@ S_regrepeat(pTHX_ regnode *p, I32 max)
 	}
 	break;
     case SANY:
-	scan = loceol;
+	if (do_utf8) {
+	    loceol = PL_regeol;
+	    while (hardcount < max && scan < loceol) {
+		scan += UTF8SKIP(scan);
+		hardcount++;
+	    }
+	} else {
+	    scan = loceol;
+	}
 	break;
     case EXACT:		/* length of string is 1 */
 	c = (U8)*STRING(p);