diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 23:06:14 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 23:06:14 -0700 |
| commit | 3f63b0e5ad2a410fc3056eabf43c29c1d622000e (patch) | |
| tree | ee5ebe7dc32a26834073e18b7e507bcc2072add8 /pp_pack.c | |
| parent | ab445a1715227f3d5f9d67e34c119b0e772a9cb5 (diff) | |
| download | perl-3f63b0e5ad2a410fc3056eabf43c29c1d622000e.tar.gz | |
Stop calling get-magic twice in pack "u", $utf8
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3569,7 +3569,7 @@ extern const double _double_constants[]; from_utf8 = DO_UTF8(fromstr); if (from_utf8) { aend = aptr + fromlen; - fromlen = sv_len_utf8(fromstr); + fromlen = sv_len_utf8_nomg(fromstr); } else aend = NULL; /* Unused, but keep compilers happy */ GROWING(utf8, cat, start, cur, (fromlen+2) / 3 * 4 + (fromlen+len-1)/len * 2); while (fromlen > 0) { |