This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_multiconcat: don't stringify LHS overload arg
authorDavid Mitchell <davem@iabyn.com>
Sat, 4 Nov 2017 10:30:00 +0000 (10:30 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sat, 4 Nov 2017 10:33:51 +0000 (10:33 +0000)
commitb3ab0375cbf2dd5732e06233d36e4d80d37cf211
treef34e884f2b056e6253f9e64ea5c1a36d4606504a
parentb5af74de642f3be437a847539db9e6a9d6d5ed30
pp_multiconcat: don't stringify LHS overload arg

RT #132385

In something like

    $a1 . $a2

where $a2 is overloaded, the concat overload method was being called
like

    concat($a2, "$a1", 1);

(The 1 indicated that the args are reversed).

This commit changes it so that it's called as

    concat($a2, $a1, 1);

i.e. that the original arg is passed in rather than a stringified copy
of it. This is important if for example $a1 is a ref.
lib/overload.t
pp_hot.c