Fix multi-dim slice assignment

rakudo · Aug 8, 2014 · 356d57a · 356d57a
1 parent 6117d54
commit 356d57a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/array_slice.pm b/src/core/array_slice.pm
@@ -247,7 +247,7 @@ multi sub postcircumfix:<[ ]> (\SELF is rw, LoL \keys, *%adv) is rw {
              !! postcircumfix:<[ ]>(SELF, keys[0].list, |%adv);
 }
 multi sub postcircumfix:<[ ]> (\SELF is rw, LoL \keys, Mu \assignee, *%adv) is rw {
-    keys > 1 ?? SELF[keys[0].list].map({postcircumfix:<[ ]>($_, LoL.new(|keys[1..*]), assignee, |%adv)}).eager
+    keys > 1 ?? (SELF[keys[0].list].map({postcircumfix:<[ ]>($_, LoL.new(|keys[1..*]), |%adv)}).eager.Parcel = assignee)
              !! postcircumfix:<[ ]>(SELF, keys[0].list, assignee, |%adv);
 }
 

diff --git a/src/core/hash_slice.pm b/src/core/hash_slice.pm
@@ -137,7 +137,7 @@ multi sub postcircumfix:<{ }> (\SELF is rw, LoL \keys, *%adv) is rw {
              !! postcircumfix:<{ }>(SELF, keys[0].list, |%adv);
 }
 multi sub postcircumfix:<{ }> (\SELF is rw, LoL \keys, Mu \assignee, *%adv) is rw {
-    keys > 1 ?? SELF{keys[0].list}.map({postcircumfix:<{ }>($_, LoL.new(|keys[1..*]), assignee, |%adv)}).eager
+    keys > 1 ?? (SELF{keys[0].list}.map({postcircumfix:<{ }>($_, LoL.new(|keys[1..*]), |%adv)}).eager.Parcel = assignee)
              !! postcircumfix:<{ }>(SELF, keys[0].list, assignee, |%adv);
 }