Change 33286: Teach Math::Complex the maximum NV for a 16 byte float. (At least, a

[Nicholas Clark]

Change 33286 by [EMAIL PROTECTED] on 2008/02/12 06:56:24

        Teach Math::Complex the maximum NV for a 16 byte float. (At least, a
        16 byte float on x86_64. This feels fragile.)

Affected files ...

... //depot/perl/lib/Math/Complex.pm#42 edit

Differences ...

==== //depot/perl/lib/Math/Complex.pm#42 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#41~33282~  2008-02-11 09:37:43.000000000 -0800
+++ perl/lib/Math/Complex.pm    2008-02-11 22:56:24.000000000 -0800
@@ -9,7 +9,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
 
-$VERSION = 1.51;
+$VERSION = 1.51_01;
 
 use Config;
 
@@ -20,6 +20,8 @@
          8  => '1.7976931348623157e+308',
         10 => '1.1897314953572317650857593266280070162E+4932',
         12 => '1.1897314953572317650857593266280070162E+4932',  # AFAICT.
+        # Tested on x86_64. What does Sparc give?
+        16 => '1.1897314953572317650857593266280070162E+4932',
        );
     my $nvsize = $Config{nvsize} || ($Config{uselongdouble} && 
$Config{longdblsize}) || $Config{doublesize};
     die "Math::Complex: Could not figure out nvsize\n" unless defined $nvsize;
End of Patch.