diff options
| author | Robin Barker <RMBarker@cpan.org> | 2005-01-19 18:30:31 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-01-19 18:32:41 +0000 |
| commit | 014ead4bccac5462b3a10654493980250e84b1d4 (patch) | |
| tree | fc07a2bc355f8c8afe997e97ca5e875d198e3dbf /sv.c | |
| parent | 3e0a3558675c46274592389adb574bfc2a161d7a (diff) | |
| download | perl-014ead4bccac5462b3a10654493980250e84b1d4.tar.gz | |
Further follow-up to 23767
Message-ID: <533D273D4014D411AB1D00062938C4D90849C57D@hotel.npl.co.uk>
p4raw-id: //depot/perl@23824
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -9390,11 +9390,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV fill = *q++; EXPECT_NUMBER(q, width); -#ifdef CHECK_FORMAT - if ((*q == 'p') && left) { - vectorize = (width == 1); - } -#endif if (vectorize) { if (vectorarg) { if (args) @@ -9615,10 +9610,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV left = FALSE; if (!width) goto format_sv; /* %-p -> %_ */ - if (vectorize) { - width = 0; - goto format_d; /* %-1p -> %vd */ - } precis = width; has_precis = TRUE; width = 0; @@ -9637,9 +9628,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV #else intsize = 'l'; #endif -#ifdef CHECK_FORMAT - format_d: -#endif /* FALL THROUGH */ case 'd': case 'i': |