From: Robin Barker <RMBarker@cpan.org>
Date: Wed, 13 Jul 2005 17:29:48 +0000 (+0100)
Subject: Error in earlier patch in sv.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=858a90f980dd074da7b777d2a853a60c6e058f77;p=p5sagit%2Fp5-mst-13.2.git

Error in earlier patch in sv.c
Message-ID: <533D273D4014D411AB1D00062938C4D90849C72B@hotel.npl.co.uk>

p4raw-id: //depot/perl@25137
---

diff --git a/sv.c b/sv.c
index fd77ada..04c6845 100644
--- 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) {
diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 90ac8a7..4eeacea 100755
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -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<