Naive implementation of IO.umask

rakudo · Jun 20, 2014 · 847bd58 · 847bd58
1 parent d370d01
commit 847bd58
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -1,4 +1,6 @@
-my role IO { }
+my role IO {
+    method umask { state $ = EVAL "0o" ~ qx/umask/ }
+}
 
 sub print(|) {
     my $args := nqp::p6argvmarray();