from_utf8 = DO_UTF8(fromstr);
if (from_utf8) {
aend = aptr + fromlen;
- fromlen = sv_len_utf8(fromstr);
+ fromlen = sv_len_utf8_nomg(fromstr);
} else aend = NULL; /* Unused, but keep compilers happy */
GROWING(utf8, cat, start, cur, (fromlen+2) / 3 * 4 + (fromlen+len-1)/len * 2);
while (fromlen > 0) {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 307);
+ plan (tests => 308);
}
use strict;
; check_count 'select $tied_undef, ...';
}
+chop(my $u = "\xff\x{100}");
+tie $var, "main", $u;
+$dummy = pack "u", $var; check_count 'pack "u", $utf8';
+
tie $var, "main", "\x{100}";
pos$var = 0 ; check_count 'lvalue pos $utf8';
$dummy = substr$var,0,1; check_count 'substr $utf8';