allow negative count on infix:<x>

rakudo · Sep 27, 2011 · e314924 · e314924
1 parent b1481ba
commit e314924
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -479,7 +479,9 @@ multi infix:<~>(Str:D \$a, Str:D \$b) {
 }
 
 multi infix:<x>(Str:D $s, Int:D $repetition) {
-    nqp::p6box_s(nqp::x(nqp::unbox_s($s), nqp::unbox_i($repetition)))
+    $repetition <= 0
+        ?? ''
+        !!  nqp::p6box_s(nqp::x(nqp::unbox_s($s), nqp::unbox_i($repetition)))
 }
 
 multi infix:<cmp>(Str:D \$a, Str:D \$b) {