Upgrade to Time-HiRes-1.86
authorSteve Peters <steve@fisharerojo.org>
Sat, 17 Dec 2005 19:21:35 +0000 (19:21 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 17 Dec 2005 19:21:35 +0000 (19:21 +0000)
p4raw-id: //depot/perl@26394

ext/Time/HiRes/Changes
ext/Time/HiRes/HiRes.pm
ext/Time/HiRes/t/HiRes.t

index 1c78b96..fe9dc3e 100644 (file)
@@ -1,5 +1,10 @@
 Revision history for Perl extension Time::HiRes.
 
+1.86   [2005-12-17]
+       - HiRes.t:s/ok 32/ok 33/, from Dominic Dunlop
+       - tighten up the clock() test marginally by requiring non-negative
+       - clock_nanosleep() and clock() doc tweaks
+
 1.85   [2005-12-16]
        - the interface to clock_nanosleep() is more natural
          when it is like (hires) time() (instead of like nanosleep),
index d8a1832..964e438 100644 (file)
@@ -21,7 +21,7 @@ require DynaLoader;
                 d_nanosleep d_clock_gettime d_clock_getres
                 d_clock d_clock_nanosleep);
        
-$VERSION = '1.85';
+$VERSION = '1.86';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -114,7 +114,8 @@ Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers
   $realtime   = clock_gettime(CLOCK_REALTIME);
   $resolution = clock_getres(CLOCK_REALTIME);
 
-  clock_nanosleep(CLOCK_REALTIME, 1.5, TIMER_ABSTIME);
+  clock_nanosleep(CLOCK_REALTIME, 1.5);
+  clock_nanosleep(CLOCK_REALTIME, time() + 10, TIMER_ABSTIME);
 
   my $ticktock = clock();
 
@@ -353,8 +354,8 @@ The time returned also includes the process times of the terminated
 child processes for which wait() has been executed.  This value is
 somewhat like the second value returned by the times() of core Perl,
 but not necessarily identical.  Note that due to backward
-compatibility limitations the returned may wrap around at about 2147
-seconds or at about 36 minutes.
+compatibility limitations the returned value may wrap around at about
+2147 seconds or at about 36 minutes.
 
 =back
 
index f8f00d0..0fed572 100644 (file)
@@ -574,7 +574,8 @@ if ($have_clock) {
        push @clock, clock();
        print "# clock = @clock\n";
     }
-    if ($clock[1] > $clock[0] &&
+    if ($clock[0] >= 0 &&
+        $clock[1] > $clock[0] &&
        $clock[2] > $clock[1] &&
        $clock[3] > $clock[2]) {
        print "ok 33\n";