Error in earlier patch in sv.c
authorRobin Barker <RMBarker@cpan.org>
Wed, 13 Jul 2005 17:29:48 +0000 (18:29 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 13 Jul 2005 16:27:43 +0000 (16:27 +0000)
Message-ID: <533D273D4014D411AB1D00062938C4D90849C72B@hotel.npl.co.uk>

p4raw-id: //depot/perl@25137

sv.c
t/op/sprintf.t

diff --git a/sv.c b/sv.c
index fd77ada..04c6845 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9049,9 +9049,11 @@ 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) {
            if (vectorarg) {
index 90ac8a7..4eeacea 100755 (executable)
@@ -386,3 +386,4 @@ __END__
 >%4$K %d<      >[45, 67]<      >%4$K 45 INVALID<
 >%d %K %d<     >[23, 45]<      >23 %K 45 INVALID<
 >%*v*999\$d %d %d<     >[11, 22, 33]<  >%*v*999\$d 11 22 INVALID<
+>%*2$1d<       >[12, 3]<       >%*2$1d INVALID<