This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Math-Complex: netbsd-vax: no inf
[perl5.git] / cpan / Math-Complex / t / Complex.t
index d0d83d3..9833131 100644 (file)
@@ -6,18 +6,10 @@
 # -- Jarkko Hietaniemi since Mar 1997
 # -- Daniel S. Lewart  since Sep 1997
 
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       #@INC = '../lib';
-    }
-}
-
 use Math::Complex 1.54;
 
-use vars qw($VERSION);
-
-$VERSION = 1.92;
+our $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
+our $has_inf   = !$vax_float;
 
 my ($args, $op, $target, $test, $test_set, $try, $val, $zvalue, @set, @val);
 
@@ -126,9 +118,14 @@ my $pii  = cplx(0, pi);
 my $pip2 = cplx(pi/2, 0);
 my $pip4 = cplx(pi/4, 0);
 my $zero = cplx(0, 0);
-my $inf  = 9**9**9;
 ';
 
+if ($has_inf) {
+    $constants .= <<'EOF';
+my $inf  = 9**9**9;
+EOF
+}
+
 push(@script, $constants);