Add Perl_ceil

p4raw-id: //depot/perl@21898

1 files changed, 1 insertions, 1 deletions

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