Change 18696 by rgs@rgs-home on 2003/02/11 20:13:21
Subject: [perl #20654] %*v02x considered invalid in printf
From: Robin Barker (via RT) <[EMAIL PROTECTED]>
Date: 10 Feb 2003 16:43:23 -0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.c#627 edit
... //depot/perl/t/op/sprintf.t#36 edit
Differences ...
==== //depot/perl/sv.c#627 (text) ====
Index: perl/sv.c
--- perl/sv.c#626~18693~ Tue Feb 11 00:14:29 2003
+++ perl/sv.c Tue Feb 11 12:13:21 2003
@@ -8330,6 +8330,7 @@
\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 @@
}
if (!asterisk)
+ if( *q == '0' )
+ fill = *q++;
EXPECT_NUMBER(q, width);
if (vectorize) {
==== //depot/perl/t/op/sprintf.t#36 (xtext) ====
Index: perl/t/op/sprintf.t
--- perl/t/op/sprintf.t#35~18689~ Mon Feb 10 13:59:34 2003
+++ perl/t/op/sprintf.t Tue Feb 11 12:13:21 2003
@@ -373,3 +373,5 @@
>%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<
End of Patch.
