From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 28 Apr 2000 21:04:46 +0000 (+0000)
Subject: &HUGE_VAL is not defined, it exists.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3aab55d7163723347b8257ce43524b34cae8649a;p=p5sagit%2Fp5-mst-13.2.git

&HUGE_VAL is not defined, it exists.

p4raw-id: //depot/cfgperl@6011
---

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 857b8f8..4439e56 100644
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -13,7 +13,7 @@ our($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $Inf);
 
 BEGIN {
     eval { require POSIX; import POSIX 'HUGE_VAL' };
-    if (defined &HUGE_VAL) {
+    if (exists &HUGE_VAL) {
 	$Inf = sprintf "%g", &HUGE_VAL;
     } else {	
 	my $e = $!;