diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 18:05:11 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 18:05:11 +0000 |
| commit | f32b5c8a3d480bafef9db5bbadcdd4567494b8f9 (patch) | |
| tree | 7ce455519144030c3c8ce59e225914b10294c486 /ext | |
| parent | 34b7e82b7f7d95b7207ac8f43025705af5f1aca0 (diff) | |
| download | perl-f32b5c8a3d480bafef9db5bbadcdd4567494b8f9.tar.gz | |
Data::Dumper fumbles negative numbers on 32-bit platforms where
IV is >32bits
p4raw-id: //depot/perl@5970
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index 990ea74699..bb606f42ca 100644 --- a/ext/Data/Dumper/Dumper.xs +++ b/ext/Data/Dumper/Dumper.xs @@ -584,8 +584,7 @@ DD_dump(pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, HV *seenhv, if (SvIOK(val)) { STRLEN len; - i = SvIV(val); - (void) sprintf(tmpbuf, "%"IVdf, (IV)i); + (void) sprintf(tmpbuf, "%"IVdf, SvIV(val)); len = strlen(tmpbuf); sv_catpvn(retval, tmpbuf, len); } |