if (has_precis && precis < elen)
width += precis - old_precis;
else
- width += elen - sv_len_utf8(argsv);
+ width += elen - sv_len_utf8_nomg(argsv);
}
is_utf8 = TRUE;
}
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 308);
+ plan (tests => 309);
}
use strict;
tie $var, "main", "\x{100}";
pos$var = 0 ; check_count 'lvalue pos $utf8';
+$dummy=sprintf"%1s",$var; check_count 'sprintf "%1s", $utf8';
$dummy = substr$var,0,1; check_count 'substr $utf8';
my $l =\substr$var,0,1;
$dummy = $$l ; check_count 'reading lvalue substr($utf8)';