Do not add condition leading '0' if already present

Douglas Schrag · Douglas Schrag · commit cd8d6ae04633 · 2017-06-18T10:56:03.000-05:00
If precision is sufficient to pad octal with a leading '0',
then no additional prefix is needed with the '#' flag.
diff --git a/src/HLL/sprintf.nqp b/src/HLL/sprintf.nqp
@@ -418,6 +418,7 @@ my module sprintf {
             my $pre := '0' if $int ne '0' && has_flag($/, 'hash');
             if nqp::chars($<precision>) {
                 $int := '' if $<precision>.made == 0 && $int == 0;
+                $pre := '' if $<precision>.made > nqp::chars($int);
                 $int := $pre ~ infix_x('0', intify($<precision>.made) - nqp::chars($int)) ~ $int;
             }
             else {

Original file line number	Diff line number	Diff line change
`@@ -418,6 +418,7 @@ my module sprintf {`
`418`	`418`	`my $pre := '0' if $int ne '0' && has_flag($/, 'hash');`
`419`	`419`	`if nqp::chars($<precision>) {`
`420`	`420`	`$int := '' if $<precision>.made == 0 && $int == 0;`
	`421`	`+ $pre := '' if $<precision>.made > nqp::chars($int);`
`421`	`422`	`$int := $pre ~ infix_x('0', intify($<precision>.made) - nqp::chars($int)) ~ $int;`
`422`	`423`	`}`
`423`	`424`	`else {`