From: Tim Witham <twitham@pcocd2.intel.com>
Date: Thu, 4 Mar 1999 10:54:01 +0000 (-0800)
Subject: patch for useless Math::BigInt warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a6a0d524e3a6171ed37d842c0e1375270987314;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {