diff options
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index bb606f42ca..6df47a5650 100644 --- a/ext/Data/Dumper/Dumper.xs +++ b/ext/Data/Dumper/Dumper.xs @@ -584,7 +584,10 @@ DD_dump(pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, HV *seenhv, if (SvIOK(val)) { STRLEN len; - (void) sprintf(tmpbuf, "%"IVdf, SvIV(val)); + if (SvIsUV(val)) + (void) sprintf(tmpbuf, "%"UVdf, SvUV(val)); + else + (void) sprintf(tmpbuf, "%"IVdf, SvIV(val)); len = strlen(tmpbuf); sv_catpvn(retval, tmpbuf, len); } |