diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2012-05-23 15:53:31 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2012-05-23 15:53:31 +0200 |
commit | 35bb012088df9f7586da9a62c90f3dd3ef609cad (patch) | |
tree | 1ca85450e421a7deda8333d225d2248e7c0b93eb /lib/overload.t | |
parent | 3866ea3be51f0998b848d22c4ef960965bda7199 (diff) | |
parent | 5f9f83be9cdcd54449f7f40db078fe367d780475 (diff) | |
download | perl-35bb012088df9f7586da9a62c90f3dd3ef609cad.tar.gz |
Merge branch 'rgs/overload' into blead
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 72e3b6e621..87845b13f9 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 |