diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-30 23:28:12 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 12:51:58 -0700 |
| commit | 7a385470b6148c63a6ff94adce7c33b205d922b2 (patch) | |
| tree | 9c9f58059d69814e3253653a18be983a0eb1fb13 /mg.c | |
| parent | fc061ed836b74a70a080622eebe8d7f247fb1990 (diff) | |
| download | perl-7a385470b6148c63a6ff94adce7c33b205d922b2.tar.gz | |
Call overloading once for utf8 ovld→substr assignment
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2194,7 +2194,7 @@ Perl_magic_setsubstr(pTHX_ SV *sv, MAGIC *mg) 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); + newtarglen = sv_or_pv_len_utf8(sv, tmps, len); SvUTF8_on(lsv); } else if (SvUTF8(lsv)) { |