From ffb4440d02d1e8964757828cffb3de1e6f18ad0b Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 21 Aug 2000 17:51:29 +0000
Subject: Unicos/mk requires elaborate paranoia.

p4raw-id: //depot/perl@6750
---
 lib/Math/Complex.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index af2b2a0567..ece2aad06c 100644
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -12,10 +12,13 @@ $VERSION = "1.30";
 our($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $Inf);
 
 BEGIN {
-    my $e = $!;
-    $Inf = CORE::exp(CORE::exp(30)); # We do want an arithmetic overflow.
-    $! = $e; # Clear ERANGE.
-    undef $Inf unless $Inf =~ /^inf(?:inity)?$/i; # Inf INF inf Infinity
+    unless ($^O eq 'unicosmk') {
+        my $e = $!;
+	# We do want an arithmetic overflow.
+        eval '$Inf = CORE::exp(CORE::exp(30))';
+        $! = $e; # Clear ERANGE.
+        undef $Inf unless $Inf =~ /^inf(?:inity)?$/i; # Inf INF inf Infinity
+    }
     $Inf = "Inf" if !defined $Inf || !($Inf > 0); # Desperation.
 }
 
-- 
cgit v1.2.1