diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-02-10 16:43:23 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-11 20:13:21 +0000 |
| commit | f3583277f058a41c88989ac547f12b7065567d88 (patch) | |
| tree | 2025f14efb935bfa97d6182456cef52495787c85 /sv.c | |
| parent | b40da9968f92efbefe4f1cf588b91fedd3811c60 (diff) | |
| download | perl-f3583277f058a41c88989ac547f12b7065567d88.tar.gz | |
[perl #20654] %*v02x considered invalid in printf
From: Robin Barker (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-20654-50711.19.9711009821137@bugs6.perl.org>
p4raw-id: //depot/perl@18696
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -8330,6 +8330,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV \d+\$ explicit format parameter index [-+ 0#]+ flags v|\*(\d+\$)?v vector with optional (optionally specified) arg + 0 flag (as above): repeated to allow "v02" \d+|\*(\d+\$)? width using optional (optionally specified) arg \.(\d*|\*(\d+\$)?) precision using optional (optionally specified) arg [hlqLV] size @@ -8395,6 +8396,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV } if (!asterisk) + if( *q == '0' ) + fill = *q++; EXPECT_NUMBER(q, width); if (vectorize) { |