p4raw-id: //depot/perl@8061
if (length > blen - offset)
length = blen - offset;
if (DO_UTF8(bufsv)) {
- buffer = utf8_hop((U8 *)buffer, offset);
+ buffer = (char*)utf8_hop((U8 *)buffer, offset);
length = utf8_hop((U8 *)buffer, length) - (U8 *)buffer;
}
else {