Perl_ck_warner(aTHX_ packWARN(WARN_SUBSTR),
"Attempt to use reference as lvalue in substr"
);
- if (SvUTF8(lsv)) lsv_len = sv_len_utf8(lsv);
+ if (SvUTF8(lsv)) lsv_len = sv_len_utf8_nomg(lsv);
else (void)SvPV_nomg(lsv,lsv_len);
if (!translate_substr_offsets(
lsv_len,
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 306);
+ plan (tests => 307);
}
use strict;
$dummy = substr$var,0,1; check_count 'substr $utf8';
my $l =\substr$var,0,1;
$dummy = $$l ; check_count 'reading lvalue substr($utf8)';
+$$l = 0 ; check_count 'setting lvalue substr($utf8)';
{
local $SIG{__WARN__} = sub {};