This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RC5 and Intel's ICC
[perl5.git] / ext / threads / shared / shared.xs
index f20c581..b19da1e 100644 (file)
@@ -61,6 +61,7 @@ recursive_lock_init(pTHX_ recursive_lock_t *lock)
     COND_INIT(&lock->cond);
 }
 
+void
 recursive_lock_destroy(pTHX_ recursive_lock_t *lock)
 {
     MUTEX_DESTROY(&lock->mutex);