diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 07:44:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 07:44:19 +0000 |
| commit | 33079e286d5308155d46cf4f82350ddbb5b5ad95 (patch) | |
| tree | 2bae6a816d0538d0a1f15fcc2578b90c2df20900 /toke.c | |
| parent | dc26be07e37090ebf432f3adccc2c3bb4c6a57d6 (diff) | |
| download | perl-33079e286d5308155d46cf4f82350ddbb5b5ad95.tar.gz | |
typecasts needed
p4raw-id: //depot/perl@4728
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |