Couple of math functions need to be Perl_ so that

they are correctly long double, especially the frexp()
in sv_vcatpvfn() (spotted by Spider Boardman).

p4raw-id: //depot/cfgperl@5390

1 files changed, 3 insertions, 3 deletions

diff --git a/pp.c b/pp.c
index 70babce262..d0a9959eba 100644
--- a/pp.c
+++ b/pp.c
@@ -905,7 +905,7 @@ PP(pp_pow)
     djSP; dATARGET; tryAMAGICbin(pow,opASSIGN);
     {
       dPOPTOPnnrl;
-      SETn( pow( left, right) );
+      SETn( Perl_pow( left, right) );
       RETURN;
     }
 }
@@ -1010,8 +1010,8 @@ PP(pp_modulo)
 #endif
 
 	    /* Backward-compatibility clause: */
-	    dright = floor(dright + 0.5);
-	    dleft  = floor(dleft + 0.5);
+	    dright = Perl_floor(dright + 0.5);
+	    dleft  = Perl_floor(dleft + 0.5);
 
 	    if (!dright)
 		DIE(aTHX_ "Illegal modulus zero");