From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Feb 2002 17:29:57 +0000 (+0000)
Subject: EBCDIC: it's much nicer to compare Unicode code points
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c237f47c4de5c8e57791c6b441d4cc2dc74391d;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: it's much nicer to compare Unicode code points
to Unicode code points.

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

diff --git a/regexec.c b/regexec.c
index 70d401d..830488a 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2332,7 +2332,7 @@ S_regmatch(pTHX_ regnode *prog)
 			if (l >= PL_regeol)
 			     sayNO;
 			if (NATIVE_TO_UNI(*(U8*)s) !=
-			    utf8_to_uvchr((U8*)l, &ulen))
+			    utf8_to_uvuni((U8*)l, &ulen))
 			     sayNO;
 			l += ulen;
 			s ++;
@@ -2344,7 +2344,7 @@ S_regmatch(pTHX_ regnode *prog)
 			if (l >= PL_regeol)
 			    sayNO;
 			if (NATIVE_TO_UNI(*((U8*)l)) !=
-			    utf8_to_uvchr((U8*)s, &ulen))
+			    utf8_to_uvuni((U8*)s, &ulen))
 			    sayNO;
 			s += ulen;
 			l ++;