Skip to content

Commit d305672

Browse files
committed
Teach Math::Complex the maximum NV for a 16 byte float. (At least, a
16 byte float on x86_64. This feels fragile.) p4raw-id: //depot/perl@33286
1 parent 53e8571 commit d305672

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

lib/Math/Complex.pm

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ package Math::Complex;
99

1010
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
1111

12-
$VERSION = 1.51;
12+
$VERSION = 1.51_01;
1313

1414
use Config;
1515

@@ -20,6 +20,8 @@ BEGIN {
2020
8 => '1.7976931348623157e+308',
2121
10 => '1.1897314953572317650857593266280070162E+4932',
2222
12 => '1.1897314953572317650857593266280070162E+4932', # AFAICT.
23+
# Tested on x86_64. What does Sparc give?
24+
16 => '1.1897314953572317650857593266280070162E+4932',
2325
);
2426
my $nvsize = $Config{nvsize} || ($Config{uselongdouble} && $Config{longdblsize}) || $Config{doublesize};
2527
die "Math::Complex: Could not figure out nvsize\n" unless defined $nvsize;

0 commit comments

Comments
 (0)