diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-29 22:58:55 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 12:51:56 -0700 |
| commit | 01680ee999d21aaacc08a6e7e581c75fd81e30eb (patch) | |
| tree | 84d64f3cf1bb1b9e0c45fda9a7b6da944a4c278c /pp.c | |
| parent | 6582db62b4fd96c49eac4d2a93589be8f4c17da3 (diff) | |
| download | perl-01680ee999d21aaacc08a6e7e581c75fd81e30eb.tar.gz | |
Make 4-arg substr call FETCH once when upgrading target
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3066,7 +3066,7 @@ PP(pp_substr) tmps = SvPV_force_nomg(sv, curlen); if (DO_UTF8(repl_sv) && repl_len) { if (!DO_UTF8(sv)) { - sv_utf8_upgrade(sv); + sv_utf8_upgrade_nomg(sv); curlen = SvCUR(sv); } } |