1 files changed, 2 insertions, 9 deletions
diff --git a/doio.c b/doio.c
index 2baecec6b1..ccbdcad9b6 100644
--- a/doio.c
+++ b/doio.c
@@ -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 */