[IO] Add &chdir and &mkdir

rakudo · Aug 24, 2011 · 6e4aa6c · 6e4aa6c
1 parent f638895
commit 6e4aa6c
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -196,6 +196,22 @@ sub dir($path = '.', Mu :$test = none('.', '..')) {
 
 }
 
+proto sub chdir(|$) { * }
+multi sub chdir($path as Str) {
+    try {
+        pir::new__PS('OS').chdir($path)
+    }
+    $! ?? fail($!) !! True
+}
+
+proto sub mkdir(|$) { * }
+multi sub mkdir($path as Str, $mode = 0o777) {
+    try {
+        pir::new__PS('OS').mkdir($path, $mode)
+    }
+    $! ?? fail($!) !! True
+}
+
 $PROCESS::IN  = open('-');
 $PROCESS::OUT = open('-', :w);
 $PROCESS::ERR = IO.new;