PERL_UNUSED_ARG(mg);
if (!translate_substr_offsets(
- SvUTF8(lsv) ? sv_len_utf8(lsv) : len,
+ SvUTF8(lsv) ? sv_len_utf8_nomg(lsv) : len,
negoff ? -(IV)offs : (IV)offs, !negoff,
negrem ? -(IV)rem : (IV)rem, !negrem, &offs, &rem
)) {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 305);
+ plan (tests => 306);
}
use strict;
tie $var, "main", "\x{100}";
pos$var = 0 ; check_count 'lvalue pos $utf8';
$dummy = substr$var,0,1; check_count 'substr $utf8';
+my $l =\substr$var,0,1;
+$dummy = $$l ; check_count 'reading lvalue substr($utf8)';
{
local $SIG{__WARN__} = sub {};