&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 (file)
--- 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 = $!;