FAQ
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/730d7fdc346e2a1260443d262e5a58c5a3bcdf3b?hp=4263b1d0d6bf9bc4eae9ad9266d8c46f7640de6e>

- Log -----------------------------------------------------------------
commit 730d7fdc346e2a1260443d262e5a58c5a3bcdf3b
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun Mar 13 20:05:15 2016 -0400

     Time-HiRes: version bump

M dist/Time-HiRes/HiRes.pm

commit 2d639e2012296899a0413e72e601dcaa82f81599
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun Mar 13 20:01:17 2016 -0400

     Time-HiRes: the mutex needs init

M dist/Time-HiRes/HiRes.xs

commit 1cb6cce332ab216d091c7d3cbabf621acd293a71
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun Mar 13 19:55:56 2016 -0400

     Time-HiRes: also hrt_ualarm_itimer() is unused

M dist/Time-HiRes/HiRes.xs

commit e5b02b5df60d508c191e352faf3cb12bf828705a
Author: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun Mar 13 19:53:17 2016 -0400

     Time-HiRes: MUTEX_LOCK, not PERL_MUTEX_LOCK

M dist/Time-HiRes/HiRes.xs
-----------------------------------------------------------------------

Summary of changes:
  dist/Time-HiRes/HiRes.pm | 2 +-
  dist/Time-HiRes/HiRes.xs | 15 +++++++--------
  2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/dist/Time-HiRes/HiRes.pm b/dist/Time-HiRes/HiRes.pm
index 289ee06..4915813 100644
--- a/dist/Time-HiRes/HiRes.pm
+++ b/dist/Time-HiRes/HiRes.pm
@@ -28,7 +28,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
     stat lstat
    );

-our $VERSION = '1.9731';
+our $VERSION = '1.9732';
  our $XS_VERSION = $VERSION;
  $VERSION = eval $VERSION;

diff --git a/dist/Time-HiRes/HiRes.xs b/dist/Time-HiRes/HiRes.xs
index c8b20b4..8b8f25c 100644
--- a/dist/Time-HiRes/HiRes.xs
+++ b/dist/Time-HiRes/HiRes.xs
@@ -485,12 +485,6 @@ hrt_ualarm_itimero(struct itimerval *oitv, int usec, int uinterval)
     return setitimer(ITIMER_REAL, &itv, oitv);
  }

-static int
-hrt_ualarm_itimer(int usec, int uinterval)
-{
- return hrt_ualarm_itimero(NULL, usec, uinterval);
-}
-
  #endif /* #if !defined(HAS_UALARM) && defined(HAS_SETITIMER) */

  #if !defined(HAS_UALARM) && defined(HAS_SETITIMER)
@@ -774,7 +768,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 +785,7 @@ static int darwin_time_init() {
      }
    }
  #ifdef USE_ITHREADS
- PERL_MUTEX_UNLOCK(&darwin_time_mutex);
+ MUTEX_UNLOCK(&darwin_time_mutex);
  #endif
    return success;
  }
@@ -946,6 +940,11 @@ BOOT:
    }
  # endif
  #endif
+#if defined(PERL_DARWIN)
+# ifdef USE_ITHREADS
+ MUTEX_INIT(&darwin_time_mutex);
+# endif
+#endif
  }

  #if defined(USE_ITHREADS) && defined(MY_CXT_KEY)

--
Perl5 Master Repository

Search Discussions

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 1 of 1 | next ›
Discussion Overview
groupperl5-changes @
categoriesperl
postedMar 14, '16 at 12:16a
activeMar 14, '16 at 12:16a
posts1
users1
websiteperl.org

1 user in discussion

Jarkko Hietaniemi: 1 post

People

Translate

site design / logo © 2017 Grokbase