From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 1 Apr 2002 02:30:18 +0000 (+0000)
Subject: Another UTF-8 locale tweak from Hugo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f247f17e3de88ea0e1d96101a0ef56a3b9a48a4;p=p5sagit%2Fp5-mst-13.2.git

Another UTF-8 locale tweak from Hugo.

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

diff --git a/regexec.c b/regexec.c
index be4b362..a2c0c72 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1013,7 +1013,7 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta
 	    c1 = *(U8*)m;
 	    c2 = PL_fold_locale[c1];
 	  do_exactf:
-	    e = do_utf8 ? s + ln : strend - ln;
+	    e = HOP3c(strend, -ln, s);
 
 	    if (norun && e < s)
 		e = s;			/* Due to minlen logic of intuit() */