Implement first cut of $*CWD. Patch courtesy of Lyle <webmaster@cosmi…

…cperl.com> along with a tweak from me.
rakudo · Jun 30, 2009 · f484da5 · f484da5
1 parent 1317e53
commit f484da5
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/builtins/globals.pir b/src/builtins/globals.pir
@@ -53,6 +53,13 @@ src/builtins/globals.pir - initialize miscellaneous global variables
     $P0 = info
     set_hll_global '$EXECUTABLE_NAME', $P0
 
+    ## create basic $*CWD
+    .local pmc os
+    os = new ['OS']
+    $S0 = os."cwd"()
+    $P0 = box $S0
+    set_hll_global '$CWD', $P0
+
     ##  create $*IN, $*OUT, $*ERR filehandles
     .local pmc pio, perl6io, perl6ioclass
     perl6ioclass = get_hll_global "IO"