From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 28 Dec 1999 07:44:19 +0000 (+0000)
Subject: typecasts needed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33079e286d5308155d46cf4f82350ddbb5b5ad95;p=p5sagit%2Fp5-mst-13.2.git

typecasts needed

p4raw-id: //depot/perl@4728
---

diff --git a/toke.c b/toke.c
index 035f06c..18e95bd 100644
--- 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;