This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Comment out some debugging output in Math::BigInt, that
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 5 Jul 2003 12:06:41 +0000 (12:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 5 Jul 2003 12:06:41 +0000 (12:06 +0000)
causes confusion in t/TEST when running Math/BigInt/t/bare_mbi.t.

p4raw-id: //depot/perl@20010

lib/Math/BigInt.pm

index 75a9be7..fba83e2 100644 (file)
@@ -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);
   }