Time-HiRes-1.9758_01

Author: rurban

Porting/Maintainers.pl

@@ -1480,10 +1480,12 @@ package Maintainers;
     },
 
     'Time::HiRes' => {
-        'DISTRIBUTION' => 'JHI/Time-HiRes-1.9751.tar.gz',
+        'DISTRIBUTION' => 'JHI/Time-HiRes-1.9758.tar.gz',
         'FILES'        => q[dist/Time-HiRes],
-        # for overly slow smokers
-        'CUSTOMIZED'   => [qw( t/nanosleep.t typemap )],
+        # for overly slow smokers. See https://github.com/rurban/Time-HiRes
+        # also typemap fixes for ANONIO
+        'CUSTOMIZED'   => [ qw( HiRes.xs t/alarm.t t/clock.t t/itimer.t
+                                t/nanosleep.t t/usleep.t t/utime.t typemap) ],
     },
 
     'Time::Local' => {

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -17620,6 +17620,7 @@ our %delta = (
             'TAP::Parser::YAMLish::Reader'=> '3.42_01',
             'TAP::Parser::YAMLish::Writer'=> '3.42_01',
             'Test::Harness'         => '3.42_01',
+            'Time::HiRes'           => '1.9758_01',
             'XSLoader'              => '1.04c',
         },
         removed => {

dist/Time-HiRes/Changes

@@ -1,5 +1,68 @@
 Revision history for the Perl extension Time::HiRes.
 
+1.9758_01 2018-09-06 rurban
+ - merge with our old cperl fixes
+
+1.9758 [2018-03-21]
+ - fix build in Win32 with Visual C by introducing a fake struct timezone
+   [rt.cpan.org #124844]
+ - in utime.t detect better being run in a noatime filesystem,
+   and if so, skip the test (for the HAMMER filesystem of DragonflyBSD)
+ - also for the HAMMER fs (if not in noatime), lower the expected subsecond
+   timestamp granularity to microseconds
+ - fix the version number typo in Changes: 1.9577 -> 1.9757
+
+1.9757 [2018-03-15]
+ - fix win32 (and cygwin?) builds which have been broken since 1.9755:
+   problem was that gettimeofday() is a macro and needs to stay such
+ - regenerate ppport.h with Perl 5.26.1 (was previously generated with
+   5.25.6) and Devel::PPPort 3.35 (previously 3.36) -- this doesn't
+   change the ppport.h, though
+
+1.9756 [2018-03-14]
+ - division by zero in new test tv_interval.t [rt.cpan.org #124775]:
+   made the test pass even if the difference is zero, but also
+   made it practically impossible to ever be zero by adding
+   a sub-second sleep.
+ - remove comments from inside qw [rt.cpan.org #124777],
+   only seemed to be caught by Perl 5.18.4
+
+1.9755 [2018-03-14]
+ - adjust the error messages of tv_interval()
+ - the NV_1EX constants now cast to be NV so that
+   tv_interval() with long double builds does not
+   produce ugly results [rt.cpan.org #106456]
+ - add tests for tv_interval()
+ - centralize the mygettimeofday() logic
+ - make the mygettimeofday() a function instead of macro
+ - add the OS X 10.12+ clock_gettime() constants
+   CLOCK_MONOTONIC_RAW_APPROX CLOCK_UPTIME_RAW_APPROX
+ - regenerate the fallback files
+
+1.9754 [2018-02-16]
+ - unify the gettimeofday() and time() forked code
+   that had near identical code paths for MacOS Classic
+   (which has two unusual features: unsigned time_t,
+   and a special tz struct member), and for non-MacOS Classic
+ - tv_interval should be implemented in XS
+   [rt.cpan.org #106456]
+   thanks to Sergey Aleynikov (suggested implementation simplified
+   by the above-mentioned MacOS Classic simplification)
+
+1.9753 [2018-01-11]
+ - in t/clock.t in a fast system we need to burn more CPU,
+   reported and fix suggested by Joel C. Maslak <jmaslak@antelope.net>
+   [rt.cpan.org #124025]
+ - for t/utime.t in netbsd we need /sbin in PATH to find the mount command,
+   this is needed for the fix in 1.9751 to actually help netbsd with noatime
+   mounts.
+   (thanks to Nigel Horne)
+
+1.9752 [2018-01-04]
+ - fix an error in the error message of utimensat() not available:
+   it said futimens() not available
+ - add --force alias for Makefile.PL --configure
+
 1.9751 [2018-01-02]
  - in macOS/OSX/Darwin, use __has_builtin() check also for utimensat(),
    can cause errors like

dist/Time-HiRes/HiRes.pm

@@ -1,15 +1,15 @@
 package Time::HiRes;
 
-{ use 5.006; }
+use 5.006;
 use strict;
 
 require Exporter;
 use XSLoader ();
 
 our @ISA = qw(Exporter);
-
 our @EXPORT = qw( );
-# More or less this same list is in Makefile.PL.  Should unify.
+# TODO: this list is a superset of the @names in
+# Makefile.PL:doConstants(), automate this somehow.
 our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
 		 getitimer setitimer nanosleep clock_gettime clock_getres
 		 clock clock_nanosleep
@@ -21,6 +21,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
 		 CLOCK_MONOTONIC_FAST
 		 CLOCK_MONOTONIC_PRECISE
 		 CLOCK_MONOTONIC_RAW
+		 CLOCK_MONOTONIC_RAW_APPROX
 		 CLOCK_PROCESS_CPUTIME_ID
 		 CLOCK_PROF
 		 CLOCK_REALTIME
@@ -37,6 +38,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
 		 CLOCK_UPTIME_FAST
 		 CLOCK_UPTIME_PRECISE
 		 CLOCK_UPTIME_RAW
+		 CLOCK_UPTIME_RAW_APPROX
 		 CLOCK_VIRTUAL
 		 ITIMER_PROF
 		 ITIMER_REAL
@@ -50,7 +52,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
 		 stat lstat utime
 		);
 
-our $VERSION = '1.9751';
+our $VERSION = '1.9758_01';
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -95,13 +97,6 @@ XSLoader::load( 'Time::HiRes', $XS_VERSION );
 
 # Preloaded methods go here.
 
-sub tv_interval {
-    # probably could have been done in C
-    my ($a, $b) = @_;
-    $b = [gettimeofday()] unless defined($b);
-    (${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000);
-}
-
 # Autoload methods go after =cut, and are processed by the autosplit program.
 
 1;