Be more forgiving in POSIX about HUGE_VALL.

p4raw-id: //depot/cfgperl@6054

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 9f1e855..b33e961 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -1517,14 +1517,10 @@ constant(char *name, int arg)
        break;
     case 'H':
        if (strEQ(name, "HUGE_VAL"))
-#ifdef USE_LONG_DOUBLE 
+#if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
          /* HUGE_VALL is admittedly non-POSIX but if are using long doubles
           * we might as well use long doubles. --jhi */
-#   ifdef HUGE_VALL
            return HUGE_VALL;
-#   else
-           goto not_there;
-#   endif
 #endif
 #ifdef HUGE_VAL
            return HUGE_VAL;