p4raw-id: //depot/perl@32929
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.42;
+$VERSION = 1.43;
BEGIN {
+ # For 64-bit doubles, anyway.
my $IEEE_DBL_MAX = eval "1.7976931348623157e+308";
if ($^O eq 'unicosmk') {
$Inf = $IEEE_DBL_MAX;
}
}
-use Math::Complex 1.42;
+use Math::Complex 1.43;
use vars qw($VERSION);
use 5.005;
use strict;
-use Math::Complex 1.42;
+use Math::Complex 1.43;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.07;
+$VERSION = 1.08;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
plan(tests => 135);
-use Math::Trig 1.07;
-use Math::Trig 1.07 qw(Inf);
+use Math::Trig 1.08;
+use Math::Trig 1.08 qw(Inf);
my $pip2 = pi / 2;