Perl_croak(aTHX_ "substr outside of string");
oldtarglen = lvlen;
if (DO_UTF8(sv)) {
- sv_utf8_upgrade(lsv);
+ sv_utf8_upgrade_nomg(lsv);
lvoff = sv_pos_u2b_flags(lsv, lvoff, &lvlen, SV_CONST_RETURN);
sv_insert_flags(lsv, lvoff, lvlen, tmps, len, 0);
newtarglen = sv_len_utf8(sv);
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 310);
+ plan (tests => 311);
}
use strict;
my $l =\substr$var,0,1;
$dummy = $$l ; check_count 'reading lvalue substr($utf8)';
$$l = 0 ; check_count 'setting lvalue substr($utf8)';
+tie $var, "main", "a";
+$$l = "\x{100}" ; check_count 'assigning $utf8 to lvalue substr';
{
local $SIG{__WARN__} = sub {};