Implement Proc.pid

rakudo · Mar 29, 2018 · 0581613 · 0581613
1 parent 23af1f4
commit 0581613
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/Proc.pm6 b/src/core/Proc.pm6
@@ -7,6 +7,7 @@ my class Proc {
     has IO::Pipe $.err;
     has $.exitcode = -1;  # distinguish uninitialized from 0 status
     has $.signal;
+    has $.pid;
     has @.command;
 
     has Proc::Async $!proc;
@@ -177,7 +178,7 @@ my class Proc {
         $!finished = $!proc.start(:$cwd, :%ENV, scheduler => $PROCESS::SCHEDULER);
         my $is-spawned := do {
             CATCH { default { self!set-status(0x100) } }
-            await $!proc.ready;
+            $!pid = await $!proc.ready;
             True
         } // False;
         .() for @!post-spawn;