This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Lookup overloaded assignment operators when trying to swap the arguments"
[perl5.git] / lib / overload.t
index afbe999..a90005d 100644 (file)
@@ -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