Use new nqp::getpid() op for $*PID.

Means $*PID is now available on JVM backend also.
rakudo · Jun 23, 2013 · 7f0af9b · 7f0af9b
1 parent c050747
commit 7f0af9b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/terms.pm b/src/core/terms.pm
@@ -155,16 +155,16 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
 
     nqp::bindkey(nqp::who(PROCESS), '@INC', @INC);
 
-    my $PID = nqp::p6box_i(pir::getinterp__P().getpid());
-    nqp::bindkey(nqp::who(PROCESS), '$PID', $PID);
-
     my $OS = $VM<config><osname>; # XXX: master gets this information with the sysinfo dynop
     nqp::bindkey(nqp::who(PROCESS), '$OS', $OS);
 
     my $OSVER = $VM<config><osvers>; # XXX: master gets this information with the sysinfo dynop
     nqp::bindkey(nqp::who(PROCESS), '$OSVER', $OSVER);
 #?endif
 
+    my $PID = nqp::p6box_i(nqp::getpid());
+    nqp::bindkey(nqp::who(PROCESS), '$PID', $PID);
+
     my $EXECUTABLE_NAME = 
 #?if parrot
         nqp::p6box_s(pir::interpinfo__Si(pir::const::INTERPINFO_EXECUTABLE_FULLNAME));

diff --git a/tools/build/NQP_REVISION b/tools/build/NQP_REVISION
@@ -1 +1 @@
-2013.06-24-gec11079
+2013.06-30-g7fa12e2