Move STDIN/OUT/ERR init to a more logical place

rakudo · Nov 29, 2014 · b78a931 · b78a931
1 parent d2a4bb4
commit b78a931
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/IO/Dup.pm b/src/core/IO/Dup.pm
@@ -41,4 +41,8 @@ class IO::Dup does IO does PIO {
     method changed(IO::Dup:D:)  { Instant }
 }
 
+PROCESS::<$ERR> = IO::Dup.new( :fileno(2) );
+PROCESS::<$OUT> = IO::Dup.new( :fileno(1) );
+PROCESS::<$IN>  = IO::Dup.new( :fileno(0) );
+
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -239,10 +239,6 @@ sub homedir($path as Str, :$test = <r w x>) {
     $*HOME = $newHOME;
 }
 
-PROCESS::<$IN>  = IO::Dup.new( :fileno(0) );
-PROCESS::<$OUT> = IO::Dup.new( :fileno(1) );
-PROCESS::<$ERR> = IO::Dup.new( :fileno(2) );
-
 sub chmod($mode, *@filenames, :$SPEC = $*SPEC, :$CWD = $*CWD) {
     my @ok;
     for @filenames -> $file {