diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-01-28 13:27:17 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-12 02:20:39 +0000 |
| commit | e3feee4e511b83331e79ac04619b8ea753bb64aa (patch) | |
| tree | 1bba0ebfeb41bc6f32680b354edcb74524d8c473 /util.c | |
| parent | f3583277f058a41c88989ac547f12b7065567d88 (diff) | |
| download | perl-e3feee4e511b83331e79ac04619b8ea753bb64aa.tar.gz | |
to silence compiler warning
Message-ID: <533D273D4014D411AB1D00062938C4D9040462CC@hotel.npl.co.uk>
p4raw-id: //depot/perl@18697
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3949,14 +3949,14 @@ Perl_vstringify(pTHX_ SV *vs) return sv; } digit = SvIVX(*av_fetch((AV *)vs, 0, 0)); - Perl_sv_setpvf(aTHX_ sv,"%d",digit); + Perl_sv_setpvf(aTHX_ sv,"%"IVdf,(IV)digit); for ( i = 1 ; i <= len ; i++ ) { digit = SvIVX(*av_fetch((AV *)vs, i, 0)); if ( digit < 0 ) - Perl_sv_catpvf(aTHX_ sv,"_%d",-digit); + Perl_sv_catpvf(aTHX_ sv,"_%"IVdf,(IV)-digit); else - Perl_sv_catpvf(aTHX_ sv,".%d",digit); + Perl_sv_catpvf(aTHX_ sv,".%"IVdf,(IV)digit); } if ( len == 0 ) Perl_sv_catpv(aTHX_ sv,".0"); |