only substr to precision when needed

Raku · Sep 25, 2013 · 61f2f50 · 61f2f50
1 parent ced8450
commit 61f2f50
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/HLL/sprintf.nqp b/src/HLL/sprintf.nqp
@@ -296,7 +296,9 @@ my module sprintf {
 
         method directive:sym<s>($/) {
             my $string := next_argument($/);
-            $string := nqp::substr($string, 0, $<precision>.ast) if nqp::chars($<precision>);
+            if nqp::chars($<precision>) && nqp::chars($string) > $<precision>.ast {
+                $string := nqp::substr($string, 0, $<precision>.ast);
+            }
             make $string
         }
         # XXX: Should we emulate an upper limit, like 2**64?