diff options
| author | Robin Barker <RMBarker@cpan.org> | 2005-01-11 15:48:49 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-11 17:04:24 +0000 |
| commit | 5dab111222565c0d3e830afa5145b2b61eb6bf29 (patch) | |
| tree | c4be692ef5ebf757bdf6bb1fa4d40cd94690c4f4 /sv.c | |
| parent | 289b58f75906a5d72af9c593e2b49622171371fa (diff) | |
| download | perl-5dab111222565c0d3e830afa5145b2b61eb6bf29.tar.gz | |
follow-up to 23767
Message-ID: <533D273D4014D411AB1D00062938C4D90849C56A@hotel.npl.co.uk>
p4raw-id: //depot/perl@23781
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -9615,14 +9615,16 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV #ifdef CHECK_FORMAT if (left) { left = FALSE; - if (width > 0) { + if (!width) + goto format_sv; /* %-p -> %_ */ + if (vectorize) { width = 0; - if (vectorize) - goto format_d; - precis = width; - has_precis = TRUE; + goto format_d; /* %-1p -> %vd */ } - goto format_sv; + precis = width; + has_precis = TRUE; + width = 0; + goto format_sv; /* %-Np -> %.N_ */ } #endif if (alt || vectorize) |