Allow methods in Lock only on definite objects

they segfault on the type object
rakudo · Dec 21, 2014 · 284c098 · 284c098
1 parent c0dd8ae
commit 284c098
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/core/Lock.pm b/src/core/Lock.pm
@@ -15,19 +15,19 @@ my class Lock is repr('ReentrantMutex') {
         method signal_all() { nqp::condsignalall(self) }
     }
 
-    method lock() { nqp::lock(self) }
+    method lock(Lock:D:) { nqp::lock(self) }
 
-    method unlock() { nqp::unlock(self) }
+    method unlock(Lock:D:) { nqp::unlock(self) }
 
-    method protect(&code) {
+    method protect(Lock:D: &code) {
         nqp::lock(self);
         my \res := code();
         nqp::unlock(self);
         CATCH { nqp::unlock(self); }
         res
     }
 
-    method condition() {
+    method condition(Lock:D:) {
         nqp::getlockcondvar(self, ConditionVariable)
     }
 }