p4raw-id: //depot/perl@8869
if (DO_UTF8(right)) {
while (len > 0) {
STRLEN l;
- auv = utf8_to_uv((U8*)s, len, &l, UTF8_ALLOW_ANYUV);
+ auv = utf8_to_uv((U8*)s, strend - s,
+ &l, UTF8_ALLOW_ANYUV);
culong += auv;
s += l;
len -= l;
if (DO_UTF8(right)) {
while (len > 0) {
STRLEN l;
- auv = utf8_to_uv((U8*)s, len, &l, UTF8_ALLOW_ANYUV);
+ auv = utf8_to_uv((U8*)s, strend - s,
+ &l, UTF8_ALLOW_ANYUV);
sv = NEWSV(37, 0);
sv_setuv(sv, auv);
PUSHs(sv_2mortal(sv));
# 160: unpack("C") and ord() equivalence for Unicode
-#print "not " unless unpack("C", chr(0x100)) eq ord(chr(0x100)) &&
-# ord(chr(0x100)) == 0x100;
+print "not " unless unpack("C", chr(0x100)) eq ord(chr(0x100)) &&
+ ord(chr(0x100)) == 0x100;
print "ok $test\n"; $test++;
# 161: use bytes + unpack C == UTF-8 unraveling