We need $*CWD when we need %*ENV

rakudo · May 28, 2014 · 0a70378 · 0a70378
1 parent 04fe6d7
commit 0a70378
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 13 deletions.
diff --git a/src/core/Env.pm b/src/core/Env.pm
@@ -10,6 +10,19 @@
         %ENV{$key} = nqp::p6box_s(nqp::iterval($envelem));
     }
     PROCESS::<%ENV> := %ENV;
+
+    ## duplicate src/core/IO.pm::cwd
+    my $CWD = IO::Path.new(nqp::p6box_s(
+#?if parrot
+        pir::trans_encoding__Ssi(
+            nqp::cwd(),
+            pir::find_encoding__Is('utf8'))
+#?endif
+#?if !parrot
+            nqp::cwd(),
+#?endif
+    ));
+    PROCESS::<$CWD> = $CWD;
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/Process.pm b/src/core/Process.pm
@@ -1,17 +1,4 @@
 {
-    ## duplicate src/core/IO.pm::cwd
-    my $CWD = IO::Path.new(nqp::p6box_s(
-#?if parrot
-        pir::trans_encoding__Ssi(
-            nqp::cwd(),
-            pir::find_encoding__Is('utf8'))
-#?endif
-#?if !parrot
-            nqp::cwd(),
-#?endif
-    ));
-    PROCESS::<$CWD> = $CWD;
-
     my $PID = nqp::p6box_i(nqp::getpid());
     PROCESS::<$PID> = $PID;