From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 May 2000 22:28:27 +0000 (+0000)
Subject: Be more forgiving in POSIX about HUGE_VALL.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=428eeaed0f30350713bf53c6882f16898acb42bb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;