diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 14:11:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 14:11:37 +0000 |
| commit | 2e507a43b57896c8a9523e87603504586eeb023f (patch) | |
| tree | 8090a57c53548f5bc2c42e712de8936cf592fc11 /lib/Math | |
| parent | cd84f5b283c99b286b4dbd0ab70732e43d1eb320 (diff) | |
| download | perl-2e507a43b57896c8a9523e87603504586eeb023f.tar.gz | |
Forgotten from #15523.
p4raw-id: //depot/perl@15548
Diffstat (limited to 'lib/Math')
| -rw-r--r-- | lib/Math/BigInt/Calc.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Math/BigInt/Calc.pm b/lib/Math/BigInt/Calc.pm index a7110c9fcf..f1ade921fe 100644 --- a/lib/Math/BigInt/Calc.pm +++ b/lib/Math/BigInt/Calc.pm @@ -8,7 +8,7 @@ require Exporter; use vars qw/@ISA $VERSION/; @ISA = qw(Exporter); -$VERSION = '0.26'; +$VERSION = '0.27'; # Package to store unsigned big integers in decimal and do math with them @@ -106,7 +106,8 @@ BEGIN $e = 5 if $^O =~ /^uts/; # UTS get's some special treatment $e = 5 if $^O =~ /^unicos/; # unicos is also problematic (6 seems to work # there, but we play safe) - $e = 8 if $e > 8; # cap, for VMS, OS/390 and other 64 bit systems + $e = 7 if $e > 7; # cap, for VMS, OS/390 and other 64 bit systems + # 8 fails inside random testsuite, so take 7 # determine how many digits fit into an integer and can be safely added # together plus carry w/o causing an overflow |