This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update to Math::Complex 1.49
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 8 Feb 2008 13:27:45 +0000 (13:27 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 8 Feb 2008 13:27:45 +0000 (13:27 +0000)
p4raw-id: //depot/perl@33253

lib/Math/Complex.pm
lib/Math/Complex.t
lib/Math/Trig.pm
lib/Math/Trig.t

index 819a63d..4373681 100644 (file)
@@ -9,11 +9,12 @@ package Math::Complex;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
 
-$VERSION = 1.48;
+$VERSION = 1.49;
 
 BEGIN {
     # For 64-bit doubles, anyway.
     my $IEEE_DBL_MAX = eval "1.7976931348623157e+308";
+    my $BIGGER_THAN_THIS = 1e99;  # Must find something bigger than this.
     if ($^O eq 'unicosmk') {
        $Inf = $IEEE_DBL_MAX;
     } else {
@@ -22,26 +23,26 @@ BEGIN {
        for my $t (
            'exp(999)',
            '9**9**9',
-           '1e999',
            'inf',
            'Inf',
            'INF',
            'infinity',
            'Infinity',
            'INFINITY',
+           '1e999',
            ) {
            local $SIG{FPE} = { };
            local $^W = 0;
            my $i = eval "$t+1.0";
-           if ($i =~ /inf/i && $i > 1e+99) {
+           if (defined $i && $i > $BIGGER_THAN_THIS) {
                $Inf = $i;
                last;
            }
        }
        $Inf = $IEEE_DBL_MAX unless defined $Inf;  # Oh well, close enough.
-       die "Could not get Infinity" unless $Inf > 1e99;
+       die "Could not get Infinity" unless $Inf > $BIGGER_THAN_THIS;
     }
-    print "# On this machine, Inf = '$Inf'\n";
+    print "# On this machine, Inf = '$Inf'\n";
 }
 
 use strict;
index c914331..611a476 100755 (executable)
@@ -13,7 +13,7 @@ BEGIN {
     }
 }
 
-use Math::Complex 1.48;
+use Math::Complex 1.49;
 
 use vars qw($VERSION);
 
index 76feca7..a8d94e2 100644 (file)
@@ -10,14 +10,14 @@ package Math::Trig;
 use 5.005;
 use strict;
 
-use Math::Complex 1.48;
+use Math::Complex 1.49;
 use Math::Complex qw(:trig :pi);
 
 use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 @ISA = qw(Exporter);
 
-$VERSION = 1.13;
+$VERSION = 1.14;
 
 my @angcnv = qw(rad2deg rad2grad
                deg2rad deg2grad
index 7b0d7cf..f5e6010 100755 (executable)
@@ -28,8 +28,8 @@ BEGIN {
 
 plan(tests => 153);
 
-use Math::Trig 1.13;
-use Math::Trig 1.13 qw(:pi Inf);
+use Math::Trig 1.14;
+use Math::Trig 1.14 qw(:pi Inf);
 
 my $pip2 = pi / 2;