diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 16:04:47 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-30 16:04:47 +0000 |
commit | 3a427a117ca05296a5c3d5d88415dc040792253b (patch) | |
tree | 97b20e515ab702aaaef8d8dbca74023d2d6c6b0f /lib/Math/BigInt.pm | |
parent | f5c235e79ea25787354a22de0af257a672e955a0 (diff) | |
download | perl-3a427a117ca05296a5c3d5d88415dc040792253b.tar.gz |
Upgrade to Math::BigInt 1.68.
p4raw-id: //depot/perl@22007
Diffstat (limited to 'lib/Math/BigInt.pm')
-rw-r--r-- | lib/Math/BigInt.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index aeee0e281f..9a26f33521 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -120,8 +120,8 @@ use overload 'bool' => sub { # this kludge is needed for perl prior 5.6.0 since returning 0 here fails :-/ # v5.6.1 dumps on this: return !$_[0]->is_zero() || undef; :-( - my $t = !$_[0]->is_zero(); - undef $t if $t == 0; + my $t = undef; + $t = 1 if !$_[0]->is_zero(); $t; }, @@ -2051,7 +2051,7 @@ sub broot # objectify is costly, so avoid it if ((!ref($x)) || (ref($x) ne ref($y))) { - ($self,$x,$y,@r) = $self->objectify(2,@_); + ($self,$x,$y,@r) = objectify(2,$self || $class,@_); } return $x if $x->modify('broot'); |