Fix for "[ID 20000329.080] quad printing does not work as documented",

reported by Joseph N. Hall.  The bug was that even with use64bitint
one had to use the prefixes q, L, or ll with printf/sprintf,
contrary to the documentation and common sense.

p4raw-id: //depot/cfgperl@5905

1 files changed, 5 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 3eebc9ad45..8f7e1f2aab 100644
--- a/sv.c
+++ b/sv.c
@@ -5926,6 +5926,11 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	    break;
 	}
 
+#ifdef USE_64_BIT_INT
+	if (!intsize)
+	    intsize = 'q';
+#endif
+
 	/* CONVERSION */
 
 	switch (c = *q++) {