Add Perl_ceil

p4raw-id: //depot/perl@21898

2 files changed, 3 insertions, 1 deletions

diff --git a/perl.h b/perl.h
index 8fe1848d51..e8106d82e4 100644
--- a/perl.h
+++ b/perl.h
@@ -1282,6 +1282,7 @@ typedef NVTYPE NV;
 #       define Perl_atan2 atan2l
 #       define Perl_pow powl
 #       define Perl_floor floorl
+#       define Perl_ceil ceill
 #       define Perl_fmod fmodl
 #   endif
 /* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */
@@ -1352,6 +1353,7 @@ long double modfl(long double, long double *);
 #   define Perl_atan2 atan2
 #   define Perl_pow pow
 #   define Perl_floor floor
+#   define Perl_ceil ceil
 #   define Perl_fmod fmod
 #   define Perl_modf(x,y) modf(x,y)
 #   define Perl_frexp(x,y) frexp(x,y)
diff --git a/pp.c b/pp.c
index 6b06c97d7c..a074cf6231 100644
--- a/pp.c
+++ b/pp.c
@@ -2795,7 +2795,7 @@ PP(pp_int)
 		  SETi(I_V(value));
 	      } else {
 		/* This is maint, and we don't have Perl_ceil in perl.h  */
-		  SETn(-Perl_floor(-value));
+		  SETn(Perl_ceil(value));
 	      }
 	  }
       }