From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 10 Feb 2001 21:56:02 +0000 (+0000)
Subject: (Retracted by #8769)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=926e2fcf2d529d86b2d33dad026028738e10a0bd;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #8769)

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

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