Time-HiRes: Update to 1.9742_01

See https://github.com/rurban/Time-HiRes branch cperl

Author: rurban

Porting/Maintainers.pl

@@ -1473,10 +1473,11 @@ package Maintainers;
     },
 
     'Time::HiRes' => {
-        'DISTRIBUTION' => 'JHI/Time-HiRes-1.9741.tar.gz',
+        'DISTRIBUTION' => 'JHI/Time-HiRes-1.9742.tar.gz',
         'FILES'        => q[dist/Time-HiRes],
-        # for overly slow smokers
-        'CUSTOMIZED'   => [ 't/nanosleep.t' ],
+        # for overly slow smokers. See https://github.com/rurban/Time-HiRes
+        '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

@@ -14866,6 +14866,7 @@ our %delta = (
             'TAP::Parser::YAMLish::Reader'=> '3.39',
             'TAP::Parser::YAMLish::Writer'=> '3.39',
             'Test::Harness'         => '3.39_01',
+            'Time::HiRes'           => '1.9742_01',
             'Safe'                  => '2.40_02c',
             'Storable'              => '3.05_12',
             'XSLoader'              => '1.03c',

dist/Time-HiRes/Changes

@@ -1,5 +1,10 @@
 Revision history for the Perl extension Time::HiRes.
 
+1.9742 [2017-04-16]
+  - prefer 3-argument open: blead 1ae6ead9
+  - fix dist/Time-HiRes/t/*.t that assumed '.' in @INC: blead 465db51d
+  - fix cases where 'do file' should be 'do ./file'.: blead 8b69401c
+
 1.9741 [2016-11-20]
   - C++11 compatibility: blead a914236c
   - El Capitan compatibility: blead 45bbc013

dist/Time-HiRes/HiRes.pm

@@ -28,7 +28,7 @@ our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
 		 stat lstat utime
 		);
 
-our $VERSION = '1.9741_02';
+our $VERSION = '1.9742_01';
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 

dist/Time-HiRes/t/alarm.t

@@ -8,9 +8,10 @@ BEGIN { require_ok "Time::HiRes"; }
 
 use Config;
 
+# increase this to 0.60 on CI, overloaded build servers on a VM, or slow machines
 my $limit = 0.25; # 25% is acceptable slosh for testing timers
 
-my $xdefine = ''; 
+my $xdefine = '';
 if (open(XDEFINE, "<", "xdefine")) {
     chomp($xdefine = <XDEFINE> || "");
     close(XDEFINE);

dist/Time-HiRes/t/clock.t

@@ -22,13 +22,14 @@ printf("# have_clock           = %d\n", &Time::HiRes::d_clock);
 # Ideally, we'd like to test that the timers are rather precise.
 # However, if the system is busy, there are no guarantees on how
 # quickly we will return.  This limit used to be 10%, but that
-# was occasionally triggered falsely.  
+# was occasionally triggered falsely.
 # So let's try 25%.
 # Another possibility might be to print "ok" if the test completes fine
 # with (say) 10% slosh, "skip - system may have been busy?" if the test
 # completes fine with (say) 30% slosh, and fail otherwise.  If you do that,
 # consider changing over to test.pl at the same time.
 # --A.D., Nov 27, 2001
+# Increase this to 0.60 on CI, overloaded build servers on a VM, or slow machines
 my $limit = 0.25; # 25% is acceptable slosh for testing timers
 
 SKIP: {

dist/Time-HiRes/t/itimer.t

@@ -29,6 +29,7 @@ use Test::More tests => 2;
 BEGIN { push @INC, '.' }
 use t::Watchdog;
 
+# Increase this to 0.60 on CI, overloaded build servers on a VM, or slow machines
 my $limit = 0.25; # 25% is acceptable slosh for testing timers
 
 my $i = 3;
@@ -37,7 +38,7 @@ my $r = [Time::HiRes::gettimeofday()];
 $SIG{VTALRM} = sub {
     $i ? $i-- : Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0);
     printf("# Tick! $i %s\n", Time::HiRes::tv_interval($r));
-};	
+};
 
 printf("# setitimer: %s\n", join(" ",
        Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0.5, 0.4)));

dist/Time-HiRes/t/nanosleep.t

@@ -8,7 +8,7 @@ BEGIN {
     }
 }
 
-use Test::More 0.82 tests => 3;
+use Test::More tests => 3;
 BEGIN { push @INC, '.' }
 use t::Watchdog;
 use Config;
@@ -38,7 +38,7 @@ SKIP: {
       ok(1, "skip nanosleep test on overly slow smoker. slept $d secs, not 0.5 secs");
     } else {
       ok ($d > 0.4 && $d < 0.9, "slept $d secs of 0.5 secs") or diag "slept $d secs $f to $f2";
-   }
+    }
 }
 
 1;

dist/Time-HiRes/t/usleep.t

@@ -16,6 +16,7 @@ eval { Time::HiRes::usleep(-2) };
 like $@, qr/::usleep\(-2\): negative time not invented yet/,
 	"negative time error";
 
+# Increase this to 0.60 on CI, overloaded build servers on a VM, or slow machines
 my $limit = 0.25; # 25% is acceptable slosh for testing timers
 
 my $one = CORE::time;

pod/perlcdelta.pod

@@ -1645,7 +1645,7 @@ Documentation
 
 Less runtime memory: demand-load Carp, Config.
 
-=item Time-HiRes  1.9741_01
+=item Time-HiRes  1.9742_01
 
 Fix -Wc++11-compat warnings
 Keep our better C++ fixes