From 2e507a43b57896c8a9523e87603504586eeb023f Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 27 Mar 2002 14:11:37 +0000 Subject: Forgotten from #15523. p4raw-id: //depot/perl@15548 --- lib/Math/BigInt/Calc.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/Math') 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 -- cgit v1.2.1