Change $*PERL<name> to lowercase. Add $*VM.

rakudo · Jul 5, 2010 · d9a5ac0 · d9a5ac0
1 parent 22578e8
commit d9a5ac0
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/src/cheats/process.pm b/src/cheats/process.pm
@@ -7,10 +7,23 @@ package PROCESS {
         our $ERR = IO.new(:PIO(pir::getstderr__P));
 
         our $PERL = {
-            name    => 'Rakudo',
+            name    => 'rakudo',
             version => Q:PIR { %r = box .RAKUDO_VERSION }
         };
 
+        our $VM = {
+            name    => 'parrot',
+            config  => 
+                Q:PIR { 
+                    .local pmc interp, config
+                    .include 'iglobals.pasm'
+                    load_bytecode 'config.pbc'
+                    interp = getinterp
+                    config = interp[.IGLOBALS_CONFIG_HASH]
+                    %r = '&hash'(config :flat)
+                }
+        }
+
         Q:PIR {
             ##  set up $*OS, $*OSVER $*EXECUTABLE_NAME
             .include 'sysinfo.pasm'