Change 20010: Comment out some debugging output in Math::BigInt, that

[Rafael Garcia-Suarez]

Change 20010 by [EMAIL PROTECTED] on 2003/07/05 12:06:41

        Comment out some debugging output in Math::BigInt, that
        causes confusion in t/TEST when running Math/BigInt/t/bare_mbi.t.

Affected files ...

... //depot/perl/lib/Math/BigInt.pm#52 edit

Differences ...

==== //depot/perl/lib/Math/BigInt.pm#52 (text) ====
Index: perl/lib/Math/BigInt.pm
--- perl/lib/Math/BigInt.pm#51~20000~   Fri Jul  4 13:58:05 2003
+++ perl/lib/Math/BigInt.pm     Sat Jul  5 05:06:41 2003
@@ -2188,22 +2188,22 @@
   #my $lastlast = $x+$y;
   my $divider = $self->new(2);
   my $up = $y-1;
-  print "start $org divider $divider up $up\n";
+  #print "start $org divider $divider up $up\n";
   while ($last != $x && $lastlast != $x)
     {
-    print "at $x ($last $lastlast)\n";
+    #print "at $x ($last $lastlast)\n";
     $lastlast = $last; $last = $x->copy(); 
-    print "at $x ($last ",($org / ($x ** $up)),"\n";
+    #print "at $x ($last ",($org / ($x ** $up)),"\n";
     $x->badd($org / ($x ** 2)); 
     $x->bdiv($divider);
     }
-  print $x ** $y," org ",$org,"\n";
+    #print $x ** $y," org ",$org,"\n";
   # correct overshot
   while ($x ** $y < $org)
     {
-    print "correcting $x to ";
+    #print "correcting $x to ";
     $x->binc();
-    print "$x ( $x ** $y == ",$x ** $y,")\n";
+    #print "$x ( $x ** $y == ",$x ** $y,")\n";
     }
   $x->round(@r);
   }
End of Patch.