More perldiag.pod sorting

[p5sagit/p5-mst-13.2.git] / perl.h

diff --git a/perl.h b/perl.h
index d26e6f4..62f43a2 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1,6 +1,7 @@
 /*    perl.h
  *
- *    Copyright (c) 1987-2003, Larry Wall
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2003, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1252,15 +1253,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