diff options
| author | Robin Barker <RMBarker@cpan.org> | 2004-03-17 18:37:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-17 19:13:03 +0000 |
| commit | c0fd1b4283835f2ec7b48824dd974b16677cdf78 (patch) | |
| tree | a89289222cc935daa5548c20862a2ab942328de7 /util.c | |
| parent | b9d46b3942a9a8cce9cbca1e08f61ac23083a740 (diff) | |
| download | perl-c0fd1b4283835f2ec7b48824dd974b16677cdf78.tar.gz | |
format/casting/warning RE: perl 5.9.1
Message-ID: <533D273D4014D411AB1D00062938C4D90404682E@hotel.npl.co.uk>
p4raw-id: //depot/perl@22521
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3877,11 +3877,11 @@ Perl_vnumify(pTHX_ SV *vs) return sv; } digit = SvIVX(*av_fetch((AV *)vs, 0, 0)); - Perl_sv_setpvf(aTHX_ sv,"%d.", PERL_ABS(digit)); + Perl_sv_setpvf(aTHX_ sv,"%d.", (int)PERL_ABS(digit)); for ( i = 1 ; i <= len ; i++ ) { digit = SvIVX(*av_fetch((AV *)vs, i, 0)); - Perl_sv_catpvf(aTHX_ sv,"%03d", PERL_ABS(digit)); + Perl_sv_catpvf(aTHX_ sv,"%03d", (int)PERL_ABS(digit)); } if ( len == 0 ) Perl_sv_catpv(aTHX_ sv,"000"); |