summaryrefslogtreecommitdiff
path: root/lib/Math/BigInt.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-12-30 16:04:47 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-12-30 16:04:47 +0000
commit3a427a117ca05296a5c3d5d88415dc040792253b (patch)
tree97b20e515ab702aaaef8d8dbca74023d2d6c6b0f /lib/Math/BigInt.pm
parentf5c235e79ea25787354a22de0af257a672e955a0 (diff)
downloadperl-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.pm6
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');