X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/07270b1a2d3e1f5827dc39ce1cef9b7148db112b..328826784b2a898fc3c4e57c47657410cb6f5559:/sv.c?ds=sidebyside

diff --git a/sv.c b/sv.c
index cb83771..30de6af 100644
--- a/sv.c
+++ b/sv.c
@@ -5139,6 +5139,13 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 	/* SIZE */
 
 	switch (*q) {
+#ifdef HAS_QUAD
+	case 'L':			/* Ld */
+	case 'q':			/* qd */
+	    intsize = 'q';
+	    q++;
+	    break;
+#endif
 	case 'l':
 #ifdef HAS_QUAD
              if (*(q + 1) == 'l') {	/* lld */
@@ -5146,12 +5153,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 		q += 2;
 		break;
 	     }
-	case 'L':			/* Ld */
-	case 'q':			/* qd */
-	    intsize = 'q';
-	    q++;
-	    break;
 #endif
+	    /* FALL THROUGH */
 	case 'h':
 	    /* FALL THROUGH */
 	case 'V':