diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1998-10-02 12:01:14 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-02 21:41:19 +0000 |
| commit | 9f6ab4074f86da83f9650997df3135d1f2daf062 (patch) | |
| tree | 75d6fdf6fb1500cc97f1318f1886810fa40afc92 /lib | |
| parent | 5effff0b18af479fcc5e67b74bc41c4bc53342f6 (diff) | |
| download | perl-9f6ab4074f86da83f9650997df3135d1f2daf062.tar.gz | |
squelch undef warnings
Message-Id: <199810021001.LAA19214@crypt.compulink.co.uk>
Subject: [PATCH] Re: Apparent bug in Math::BigInt
p4raw-id: //depot/perl@1920
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Math/BigInt.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Math/BigInt.pm b/lib/Math/BigInt.pm index ef4af613c3..cd5c221b84 100644 --- a/lib/Math/BigInt.pm +++ b/lib/Math/BigInt.pm @@ -258,9 +258,9 @@ sub bdiv { #(dividend: num_str, divisor: num_str) return num_str else { push(@x, 0); } - @q = (); ($v2,$v1) = @y[-2,-1]; + @q = (); ($v2,$v1) = ($y[-2] || 0, $y[-1]); while ($#x > $#y) { - ($u2,$u1,$u0) = @x[-3..-1]; + ($u2,$u1,$u0) = ($x[-3] || 0, $x[-2] || 0, $x[-1]); $q = (($u0 == $v1) ? 99999 : int(($u0*1e5+$u1)/$v1)); --$q while ($v2*$q > ($u0*1e5+$u1-$q*$v1)*1e5+$u2); if ($q) { |