Only output trailing dot if there are also trailing digits

perlpilot · perlpilot · commit a9cf677ae751 · 2014-08-16T02:02:30.000-05:00
diff --git a/src/HLL/sprintf.nqp b/src/HLL/sprintf.nqp
@@ -211,7 +211,9 @@ my module sprintf {
             $lhs_s := nqp::tostr_I($lhs_I);
             $rhs_s := nqp::substr($rhs_s,1,$precision);     # skip the leading char we added.
 
-            $lhs_s ~ '.' ~ $rhs_s;
+            my $return := $lhs_s;
+            $return := $return ~ "." ~ $rhs_s if $rhs_s ne "";
+            $return;
         }
 
         sub stringify-to-precision2($float, $precision) {

Original file line number	Diff line number	Diff line change
`@@ -211,7 +211,9 @@ my module sprintf {`
`211`	`211`	`$lhs_s := nqp::tostr_I($lhs_I);`
`212`	`212`	`$rhs_s := nqp::substr($rhs_s,1,$precision); # skip the leading char we added.`
`213`	`213`
`214`		`- $lhs_s ~ '.' ~ $rhs_s;`
	`214`	`+ my $return := $lhs_s;`
	`215`	`+ $return := $return ~ "." ~ $rhs_s if $rhs_s ne "";`
	`216`	`+ $return;`
`215`	`217`	`}`
`216`	`218`
`217`	`219`	`sub stringify-to-precision2($float, $precision) {`