This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Time-HiRes: MUTEX_LOCK, not PERL_MUTEX_LOCK
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 13 Mar 2016 23:53:17 +0000 (19:53 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 13 Mar 2016 23:57:02 +0000 (19:57 -0400)
dist/Time-HiRes/HiRes.xs

index c8b20b4..42f0fc2 100644 (file)
@@ -774,7 +774,7 @@ static struct timespec timespec_init;
 
 static int darwin_time_init() {
 #ifdef USE_ITHREADS
-  PERL_MUTEX_LOCK(&darwin_time_mutex);
+  MUTEX_LOCK(&darwin_time_mutex);
 #endif
   struct timeval tv;
   int success = 1;
@@ -791,7 +791,7 @@ static int darwin_time_init() {
     }
   }
 #ifdef USE_ITHREADS
-  PERL_MUTEX_UNLOCK(&darwin_time_mutex);
+  MUTEX_UNLOCK(&darwin_time_mutex);
 #endif
   return success;
 }