patch for useless Math::BigInt warnings

	Message-Id: <9903041854.AA46868@frc0000>

p4raw-id: //depot/perl@3127

diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm
index b8ad6ce..16ebb1d 100644 (file)
--- a/lib/Math/BigInt.pm
+++ b/lib/Math/BigInt.pm
@@ -257,8 +257,10 @@ sub bdiv { #(dividend: num_str, divisor: num_str) return num_str
        push(@x, 0);
     }
     @q = (); ($v2,$v1) = @y[-2,-1];
+    $v2 = 0 unless $v2;
     while ($#x > $#y) {
        ($u2,$u1,$u0) = @x[-3..-1];
+       $u2 = 0 unless $u2;
        $q = (($u0 == $v1) ? 99999 : int(($u0*1e5+$u1)/$v1));
        --$q while ($v2*$q > ($u0*1e5+$u1-$q*$v1)*1e5+$u2);
        if ($q) {