summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2005-07-13 18:29:48 +0100
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-07-13 16:27:43 +0000
commit858a90f980dd074da7b777d2a853a60c6e058f77 (patch)
tree1529698d87d31c53e47dffba2224305ca026111d /sv.c
parent85e1fcb9f8c620d3a6c130ccc46498f8937994b3 (diff)
downloadperl-858a90f980dd074da7b777d2a853a60c6e058f77.tar.gz
Error in earlier patch in sv.c
Message-ID: <533D273D4014D411AB1D00062938C4D90849C72B@hotel.npl.co.uk> p4raw-id: //depot/perl@25137
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index fd77ada7c9..04c684577c 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) {