X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.c;h=8d6ecadaa8b0cfe6ee8a1cd3d2d2247962fd9051;hb=9ec58fb7ec19e41fee2f2944750a45a2a85e4a03;hp=2dfbfaaaf813c1f5dbbbc88e07619c97c885d46d;hpb=b21ed0a92b5a07dd021a85728802e72edfa03699;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.c b/util.c
index 2dfbfaa..8d6ecad 100644
--- a/util.c
+++ b/util.c
@@ -3592,7 +3592,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
 }
 #endif /* USE_THREADS */
 
-#ifdef HUGE_VAL
+#if defined(HUGE_VAL) || (defined(USE_LONG_DOUBLE) && defined(HUGE_VALL))
 /*
  * This hack is to force load of "huge" support from libm.a
  * So it is in perl for (say) POSIX to use. 
@@ -3601,7 +3601,10 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
 NV 
 Perl_huge(void)
 {
- return HUGE_VAL;
+#   if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
+    return HUGE_VALL;
+#   endif
+    return HUGE_VAL;
 }
 #endif