typecasts needed

p4raw-id: //depot/perl@4728

diff --git a/toke.c b/toke.c
index 035f06c..18e95bd 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6824,7 +6824,7 @@ Perl_scan_num(pTHX_ char *start)
 
                    tmpend = uv_to_utf8(tmpbuf, rev);
                    *tmpend = '\0';
-                   sv_catpvn(sv, tmpbuf, tmpend - tmpbuf);
+                   sv_catpvn(sv, (const char*)tmpbuf, tmpend - tmpbuf);
                    if (rev > 0)
                        SvNVX(sv) += (NV)rev/nshift;
                    nshift *= 1000;
@@ -6834,7 +6834,7 @@ Perl_scan_num(pTHX_ char *start)
                s = pos;
                tmpend = uv_to_utf8(tmpbuf, rev);
                *tmpend = '\0';
-               sv_catpvn(sv, tmpbuf, tmpend - tmpbuf);
+               sv_catpvn(sv, (const char*)tmpbuf, tmpend - tmpbuf);
                if (rev > 0)
                    SvNVX(sv) += (NV)rev/nshift;