[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

diff --git a/sv.c b/sv.c
index 4ef0485..1caf879 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -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) {

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 2eaa2e4..e498c65 100755 (executable)
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -373,3 +373,5 @@ __END__
 >%vp<  >''<    >%vp INVALID<
 >%vs,%d<       >[1, 2, 3]<     >1,2<
 >%v_<  >''<    >%v_ INVALID<
+>%v#x< >''<    >%v#x INVALID<
+>%v02x<        >"foo\n"<       >66.6f.6f.0a<