From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 Apr 2003 08:57:01 +0000 (+0000)
Subject: Patch from Merijn.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03476e8e225023314ac8982933b2825edd7b8b8c;p=p5sagit%2Fp5-mst-13.2.git

Patch from Merijn.

p4raw-id: //depot/perl@19230
---

diff --git a/perl.h b/perl.h
index d26e6f4..32ce850 100644
--- a/perl.h
+++ b/perl.h
@@ -1252,15 +1252,19 @@ typedef NVTYPE NV;
 #       ifndef HAS_MODFL_PROTO
 long double modfl(long double, long double *);
 #	endif
-#   else if defined(HAS_AINTL) && defined(HAS_COPYSIGNL)
+#   else
+#       if defined(HAS_AINTL) && defined(HAS_COPYSIGNL)
         extern long double Perl_my_modfl(long double x, long double *ip);
-#       define Perl_modf(x,y) Perl_my_modfl(x,y)
+#           define Perl_modf(x,y) Perl_my_modfl(x,y)
+#       endif
 #   endif
 #   ifdef HAS_FREXPL
 #       define Perl_frexp(x,y) frexpl(x,y)
-#   else if defined(HAS_ILOGBL) && defined(HAS_SCALBNL)
+#   else
+#       if defined(HAS_ILOGBL) && defined(HAS_SCALBNL)
         extern long double Perl_my_frexpl(long double x, int *e);
-#       define Perl_frexp(x,y) Perl_my_frexpl(x,y)
+#           define Perl_frexp(x,y) Perl_my_frexpl(x,y)
+#       endif
 #   endif
 #   ifndef Perl_isnan
 #       ifdef HAS_ISNANL