From: Tels Date: Sat, 30 Jun 2007 13:14:05 +0000 (+0200) Subject: FYI: Math::BigInt v1.87 released [PATCH] X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c97ef8417f706238c83b6a3db825b056f5467926;p=p5sagit%2Fp5-mst-13.2.git FYI: Math::BigInt v1.87 released [PATCH] Message-Id: <200706301314.07075@bloodgate.com> p4raw-id: //depot/perl@31509 --- diff --git a/lib/Math/BigFloat.pm b/lib/Math/BigFloat.pm index e97ef92..f2eb0a4 100644 --- a/lib/Math/BigFloat.pm +++ b/lib/Math/BigFloat.pm @@ -2381,7 +2381,6 @@ sub bpow } if ($x_is_zero) { - #return $x->bone() if $y_is_zero; return $x if $y->{sign} eq '+'; # 0**y => 0 (if not y <= 0) # 0 ** -y => 1 / (0 ** y) => 1 / 0! (1 / 0 => +inf) return $x->binf(); @@ -3036,7 +3035,7 @@ sub batan } # This series is only valid if -1 < x < 1, so for other x we need to - # to calculate PI/ - atan(1/x): + # to calculate PI/2 - atan(1/x): my $one = $MBI->_new(1); my $pi = undef; if ($x->{_es} eq '+' && ($MBI->_acmp($x->{_m},$one) >= 0)) diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index a9bc6c7..475666f 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -1512,7 +1512,7 @@ sub is_int sub bmul { - # multiply the first number by the second numbers + # multiply the first number by the second number # (BINT or num_str, BINT or num_str) return BINT # set up parameters @@ -1592,7 +1592,7 @@ sub bmuladd return $upgrade->bmuladd($x,$upgrade->new($y),$upgrade->new($z),@r) if defined $upgrade && (!$y->isa($self) || !$z->isa($self) || !$x->isa($self)); - # TODO: what it $y and $z have A or P set? + # TODO: what if $y and $z have A or P set? $r[3] = $z; # no push here $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-'; # +1 * +1 or -1 * -1 => +