Attempt #2 at using CLONE-LIST-DECONTAINERIZED

rakudo · Jan 26, 2015 · 88b2d14 · 88b2d14
1 parent 2def0ea
commit 88b2d14
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 8 deletions.
diff --git a/src/core/Proc/Async.pm b/src/core/Proc/Async.pm
@@ -163,11 +163,6 @@ my class Proc::Async {
 
         my %ENV := $ENV ?? $ENV.hash !! %*ENV;
 
-        my Mu $args-without := nqp::list(nqp::decont($!path.Str));
-        for @!args.eager {
-            nqp::push($args-without, nqp::decont(.Str));
-        }
-
         $!exit_promise = Promise.new;
 
         my Mu $callbacks := nqp::hash();
@@ -189,7 +184,7 @@ my class Proc::Async {
         nqp::bindkey($callbacks, 'write', True) if $.w;
 
         $!process_handle := nqp::spawnprocasync($scheduler.queue,
-            $args-without,
+            CLONE-LIST-DECONTAINERIZED($!path,@!args),
             $*CWD.Str,
             CLONE-HASH-DECONTAINERIZED(%ENV),
             $callbacks,

diff --git a/src/core/control.pm b/src/core/control.pm
@@ -302,9 +302,9 @@ sub CLONE-HASH-DECONTAINERIZED(\hash) {
     $hash-without;
 }
 
-sub CLONE-LIST-DECONTAINERIZED(\list) {
+sub CLONE-LIST-DECONTAINERIZED(*@list) {
     my Mu $list-without := nqp::list();
-    nqp::push($list-without, nqp::decont(~$_)) for list.eager;
+    nqp::push($list-without, nqp::decont(~$_)) for @list.eager;
     $list-without;
 }