diff options
| author | Tim Witham <twitham@pcocd2.intel.com> | 1999-03-04 02:54:01 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-23 06:57:30 +0000 |
| commit | 0a6a0d524e3a6171ed37d842c0e1375270987314 (patch) | |
| tree | a2051c7443db9b4d7c2313697594b37445f9c329 /lib/Math | |
| parent | a07564da6e950450ea09426c273257a48fb8ba9a (diff) | |
| download | perl-0a6a0d524e3a6171ed37d842c0e1375270987314.tar.gz | |
patch for useless Math::BigInt warnings
Message-Id: <9903041854.AA46868@frc0000>
p4raw-id: //depot/perl@3127
Diffstat (limited to 'lib/Math')
| -rw-r--r-- | lib/Math/BigInt.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index b8ad6cec1f..16ebb1d5dd 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) { |