Implement 'is copy' array params.

rakudo · Jun 30, 2013 · af39d66 · af39d66
1 parent 7b04775
commit af39d66
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/Binder.java b/src/vm/jvm/runtime/org/perl6/rakudo/Binder.java
@@ -396,7 +396,8 @@ else if ((paramFlags & SIG_ELEM_IS_PARCEL) != 0) {
                 if ((paramFlags & SIG_ELEM_ARRAY_SIGIL) != 0) {
                     SixModelObject bindee = decontValue;
                     if ((paramFlags & SIG_ELEM_IS_COPY) != 0) {
-                        throw new RuntimeException("is copy array param NYI");
+                        bindee = Ops.p6list(gcx.EMPTYARR.clone(tc), gcx.Array, gcx.True, tc);
+                        Ops.p6store(bindee, decontValue, tc);
                     }
                     cf.oLex[sci.oTryGetLexicalIdx(varName)] = bindee;
                 }