This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pass $ENV{HARNESS_TIMER} to Test::Harness from t/harness.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 20 Aug 2014 13:48:26 +0000 (09:48 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 20 Aug 2014 13:48:26 +0000 (09:48 -0400)
(One would think it worked as-is, but didn't.  Maybe T::H resets it somehow.)

t/harness

index 2b47313..a8a8d9a 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -219,6 +219,7 @@ my $h = TAP::Harness->new({
     color       => $color,
     jobs        => $jobs,
     verbosity   => $Verbose,
+    timer       => $ENV{HARNESS_TIMER},
     exec        => sub {
        my ($harness, $test) = @_;