diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
| commit | f5f7a0b482a96221fe45c96ca998d928c8ea7eff (patch) | |
| tree | 3b31f97fa52e2b424a5ad64b9c52a42de51854a5 /doio.c | |
| parent | bf49b057b09bec860588a9b554c3a77683394722 (diff) | |
| parent | 30382c73ff93b57b951492a5a0d1cba2de577e49 (diff) | |
| download | perl-f5f7a0b482a96221fe45c96ca998d928c8ea7eff.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@4303
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -1013,17 +1013,10 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) if (SvIOK(sv)) { if (SvGMAGICAL(sv)) mg_get(sv); -#ifdef IV_IS_QUAD if (SvIsUV(sv)) - PerlIO_printf(fp, "%" PERL_PRIu64, (UV)SvUVX(sv)); + PerlIO_printf(fp, "%"UVuf, (UV)SvUVX(sv)); else - PerlIO_printf(fp, "%" PERL_PRId64, (IV)SvIVX(sv)); -#else - if (SvIsUV(sv)) - PerlIO_printf(fp, "%lu", (unsigned long)SvUVX(sv)); - else - PerlIO_printf(fp, "%ld", (long)SvIVX(sv)); -#endif + PerlIO_printf(fp, "%"IVdf, (IV)SvIVX(sv)); return !PerlIO_error(fp); } /* FALL THROUGH */ |