return an empty list for foobar xx -1

rakudo · Aug 19, 2014 · 2204422 · 2204422
1 parent 18429d5
commit 2204422
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -639,6 +639,9 @@ multi infix:<xx>(Mu \x, $n) {
     my int $size = $n.Int;
 
     my Mu $rpa := nqp::list();
+    if $size < 0 {
+        return nqp::p6parcel($rpa, Any);
+    }
     nqp::setelems($rpa, $size);
     nqp::setelems($rpa, 0);