lock and unlock for IO::Handle

lock's $flag argument might need some more design
rakudo · Nov 15, 2015 · 2163a7e · 2163a7e
1 parent 47add65
commit 2163a7e
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -862,6 +862,14 @@ my class IO::Handle does IO {
         self.opened && nqp::p6bool($!PIO.isatty)
     }
 
+    method lock(IO::Handle:D: Int:D $flag) {
+        nqp::lockfh($!PIO, $flag)
+    }
+
+    method unlock(IO::Handle:D: --> True) {
+        nqp::unlockfh($!PIO);
+    }
+
 
     proto method print(|) { * }
     multi method print(IO::Handle:D: str:D \x --> True) {