Make multi sub(:@c is copy) { } work

Apparently this was looked over during the GLR
rakudo · Nov 2, 2017 · be1e287 · be1e287
1 parent 0dc4a0e
commit be1e287
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.nqp b/src/Perl6/Metamodel/BOOTSTRAP.nqp
@@ -440,11 +440,9 @@ my class Binder {
                     # and a normal bind is a straightforward binding.
                     if $flags +& $SIG_ELEM_ARRAY_SIGIL {
                         if $flags +& $SIG_ELEM_IS_COPY {
-                            # XXX GLR
-                            nqp::die('replace this Array is copy logic');
-                            # my $bindee := nqp::create(Array);
-                            # $bindee.STORE(nqp::decont($oval));
-                            # nqp::bindkey($lexpad, $varname, $bindee);
+                            my $bindee := nqp::create(Array);
+                            $bindee.STORE(nqp::decont($oval));
+                            nqp::bindkey($lexpad, $varname, $bindee);
                         }
                         else {
                             nqp::bindkey($lexpad, $varname, nqp::decont($oval));