diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2013-02-25 11:01:17 -0500 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2013-02-26 10:40:57 -0500 |
| commit | 69815d0833760cfeeb80f4a8c2d1b27b24ec83e3 (patch) | |
| tree | 3e25c708f48df25d03d33f1aefeed43c0f5a21b7 /lib/overload.t | |
| parent | a31421fbd20bffa14a3963180c4166df6ed0e94a (diff) | |
| download | perl-69815d0833760cfeeb80f4a8c2d1b27b24ec83e3.tar.gz | |
Revert "Lookup overloaded assignment operators when trying to swap the arguments"
This reverts commit f041cf0f9c6469c41de8b73d5f7b426710c3ff8b.
This is reverted in reference to [perl #113834]. Although this commit
does fix a real bug, it introduces a new one that is arguably worse.
More importantly, it is a regression from 5.16.0. We should produce a
test case that solves both bugs, then solve them both, then get that in
place. Before 5.18.0 would be nice. After 5.18.0 may have to do.
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t index afbe99971b..a90005db4d 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -202,7 +202,7 @@ is($b, "89"); is(ref $a, "Oscalar"); is($copies, 1); -eval q[package Oscalar; use overload ('+=' => sub {$ {$_[0]} += 3*"$_[1]"; +eval q[package Oscalar; use overload ('+=' => sub {$ {$_[0]} += 3*$_[1]; $_[0] } ) ]; $c=new Oscalar; # Cause rehash |