Remove old parrot wart

rakudo · Sep 26, 2014 · 1613b0b · 1613b0b
1 parent 85c4c02
commit 1613b0b
Showing 1 changed file with 1 addition and 12 deletions.
diff --git a/src/core/Env.pm b/src/core/Env.pm
@@ -13,18 +13,7 @@
 }
 
 multi sub INITIALIZE_DYNAMIC('$*CWD') {
-    ## 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;
+    PROCESS::<$CWD> = IO::Path.new(nqp::p6box_s(nqp::cwd()));
 }
 
 # vim: ft=perl6 expandtab sw=4