From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 27 Mar 2002 14:11:37 +0000 (+0000)
Subject: Forgotten from #15523.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e507a43b57896c8a9523e87603504586eeb023f;p=p5sagit%2Fp5-mst-13.2.git

Forgotten from #15523.

p4raw-id: //depot/perl@15548
---

diff --git a/lib/Math/BigInt/Calc.pm b/lib/Math/BigInt/Calc.pm
index a7110c9..f1ade92 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