From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 5 Jul 2003 12:06:41 +0000 (+0000)
Subject: Comment out some debugging output in Math::BigInt, that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0fc0438e4470f0252a9d5d774bd5c39be8f3fd7;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@20010
---

diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm
index 75a9be7..fba83e2 100644
--- a/lib/Math/BigInt.pm
+++ b/lib/Math/BigInt.pm
@@ -2188,22 +2188,22 @@ sub broot
   #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);
   }