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 (file)
--- 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 (file)
--- 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 => +