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, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 73c15e77a2..7bb1fdd23f 100644
--- a/sv.c
+++ b/sv.c
@@ -6207,7 +6207,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	    need = 0;
 	    if (c != 'e' && c != 'E') {
 		i = PERL_INT_MIN;
-		(void)frexp(nv, &i);
+		(void)Perl_frexp(nv, &i);
 		if (i == PERL_INT_MIN)
 		    Perl_die(aTHX_ "panic: frexp");
 		if (i > 0)