diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-27 18:18:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-27 18:18:46 +0000 |
| commit | 214f2c7fba6eaf555da54233689da3a4f1fb9d1f (patch) | |
| tree | e2de48c04efaac398871b48d7f9497c9d5f48fe7 /lib | |
| parent | d84636903463cc2c7c724401d8214e94bb80a34c (diff) | |
| download | perl-214f2c7fba6eaf555da54233689da3a4f1fb9d1f.tar.gz | |
Unicos tweaks from Mark P. Lutz.
p4raw-id: //depot/cfgperl@5971
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Math/Complex.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index b13ab77f7a..514935522e 100644 --- a/lib/Math/Complex.pm +++ b/lib/Math/Complex.pm @@ -72,7 +72,10 @@ my %DISPLAY_FORMAT = ('style' => 'cartesian', 'polar_pretty_print' => 1); my $eps = 1e-14; # Epsilon -my $Inf = CORE::exp(CORE::exp(30)); +my $Inf; +unless ($^O eq 'unicos') { # Unicos gets a fatal runtime error + $Inf = CORE::exp(CORE::exp(30)); +} $Inf = "Inf" if !defined $Inf || !$Inf > 0; # |