Make mkdir() work again

rakudo · Nov 29, 2014 · c4d1f1f · c4d1f1f
1 parent fd1ee99
commit c4d1f1f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -266,10 +266,10 @@ sub rmdir(*@filenames, :$SPEC = $*SPEC, :$CWD = $*CWD) {
 
 proto sub mkdir(|) { * }
 multi sub mkdir(Int $mode, *@dirnames, :$SPEC = $*SPEC, :$CWD = $*CWD) {
-    @dirnames.grep( *.IO(:$SPEC,:$CWD).mkdir($mode) ).eager;
+    @dirnames.grep( { MAKE-DIR(MAKE-ABSOLUTE-PATH($_,$*CWD),$mode) } ).eager;
 }
 multi sub mkdir($path, $mode = 0o777, :$SPEC = $*SPEC, :$CWD = $*CWD) {
-    $path.IO(:$SPEC,:$CWD).mkdir($mode) ?? ($path,) !! ();
+    MAKE-DIR(MAKE-ABSOLUTE-PATH($path,$*CWD),$mode) ?? ($path,) !! ();
 }
 
 sub rename($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD) {