diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/overload.pm | 6 | ||||
| -rw-r--r-- | lib/overload.t | 18 |
2 files changed, 21 insertions, 3 deletions
diff --git a/lib/overload.pm b/lib/overload.pm index c02fddbfab..e5b2f97b6a 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -588,7 +588,8 @@ appear as lvalue when the above code is executed. If the copy constructor is required during the execution of some mutator, but a method for C<'='> was not specified, it can be autogenerated as a -string copy if the object is a plain scalar. +string copy if the object is a plain scalar or a simple assignment if it +is not. =over 5 @@ -675,7 +676,8 @@ C<E<lt>=E<gt>> or C<cmp>: =item I<Copy operator> can be expressed in terms of an assignment to the dereferenced value, if this -value is a scalar and not a reference. +value is a scalar and not a reference, or simply a reference assignment +otherwise. =back diff --git a/lib/overload.t b/lib/overload.t index 44ead7ef60..7c2476cc8c 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -47,7 +47,7 @@ sub numify { 0 + "${$_[0]}" } # Not needed, additional overhead package main; $| = 1; -use Test::More tests => 556; +use Test::More tests => 558; $a = new Oscalar "087"; @@ -1427,4 +1427,20 @@ foreach my $op (qw(<=> == != < <= > >=)) { is($aref**1, $num_val, 'exponentiation of ref'); } +{ + package CopyConstructorFallback; + use overload + '++' => sub { "$_[0]"; $_[0] }, + fallback => 1; + sub new { bless {} => shift } + + package main; + + my $o = CopyConstructorFallback->new; + my $x = $o++; # would segfault + my $y = ++$o; + is($x, $o, "copy constructor falls back to assignment (postinc)"); + is($y, $o, "copy constructor falls back to assignment (preinc)"); +} + # EOF |