diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-27 23:24:44 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-27 23:24:44 -0800 |
commit | 5ae28fdbad43e9c8cc2641dcc6986f82424990b5 (patch) | |
tree | 23086acecf8841f985f80d04858f0fdfce2b097b /pp_hot.c | |
parent | 2fbf5f10a3d2adda1abe7658f4fd472ca98023c6 (diff) | |
download | perl-5ae28fdbad43e9c8cc2641dcc6986f82424990b5.tar.gz |
pp_hot.c:pp_concat: Remove SvGETMAGIC
If the operand is magical, try_amagic_bin will already have copied
the operand if both left and right were the same, so left == right
will no longer be true by the time this path is reached. This has
been the case since v5.13.11-400-g75ea7a1.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -299,9 +299,6 @@ PP(pp_concat) } if (!rcopied) { - if (left == right) - /* $r.$r: do magic twice: tied might return different 2nd time */ - SvGETMAGIC(right); rpv = SvPV_nomg_const(right, rlen); rbyte = !DO_UTF8(right); } |