Make parcel assignmnet a little cheaper.

rakudo · Oct 1, 2011 · c857a18 · c857a18
1 parent 1c27dea
commit c857a18
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -72,7 +72,7 @@ my class Parcel does Positional {
             if nqp::iscont($x) {
                 # container: scalar assignment
                 nqp::push($tv, $x);
-                nqp::push($tv, $rhs ?? pir::perl6_decontainerize__PP($rhs.shift) !! Nil);
+                nqp::push($tv, $rhs.gimme(1) ?? pir::perl6_decontainerize__PP($rhs.shift) !! Nil);
             }
             elsif nqp::istype($x, Whatever) {
                 # Whatever: skip assigning value