diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 16:10:10 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 16:10:10 +0000 |
commit | 31582a29107eeb803e2d1134e77b201068578e21 (patch) | |
tree | 6fcd109fe7f5923597cfb9823012e92741ef2e09 /sv.c | |
parent | 7b0972df8f5014603934d3178907bf5277318161 (diff) | |
parent | 6f9bb7fd34a6047f919bd09bd87e990f064e148c (diff) | |
download | perl-31582a29107eeb803e2d1134e77b201068578e21.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4427
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 13 |
1 files changed, 8 insertions, 5 deletions
@@ -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': |