Fix *printf %ld handling for microperl (and other obscure platforms)

07208e09d4435b4e accidentally moved the implicit q = q + 1 into conditionally
compiled code, which is compiled most everywhere else, except miniperl. Without
the increment of q, formats such as 'ld' were not being recognised as formats.
This was noticed because the tokeniser implements __LINE__ by converting to a
string using %ld.

diff --git a/sv.c b/sv.c
index 9351076..9ea0b50 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10375,8 +10375,9 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen,
            break;
 #endif
        case 'l':
+           ++q;
 #if defined(HAS_QUAD) || defined(HAS_LONG_DOUBLE)
-           if (*++q == 'l') {  /* lld, llf */
+           if (*q == 'l') {    /* lld, llf */
                intsize = 'q';
                ++q;
            }