Copy non-specced IO.chmod from b

rakudo · Nov 17, 2011 · ecc46f4 · ecc46f4
1 parent 90347c1
commit ecc46f4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -184,6 +184,13 @@ class IO {
         }
         $! ?? fail($!) !! True
     }
+
+    method chmod($mode) {
+        try {
+            pir::new__PS('OS').chmod(nqp::unbox_s(~$.path), nqp::unbox_i($mode.Int));
+        }
+        $! ?? fail($!) !! True
+    }
 }
 
 sub unlink($path) {