This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suck in r1147 from TH3's svn:
authorNicholas Clark <nick@ccl4.org>
Tue, 9 Sep 2008 17:36:41 +0000 (17:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 9 Sep 2008 17:36:41 +0000 (17:36 +0000)
Make test work if HARNESS_TIMER=1. Thanks Petdance.

p4raw-id: //depot/perl@34329

ext/Test/Harness/t/prove.t

index 5dbbe0e..c808870 100644 (file)
@@ -1316,6 +1316,8 @@ for my $test (@SCHEDULE) {
     my $name = $test->{name};
     my $class = $test->{class} || 'FakeProve';
 
+    local $ENV{HARNESS_TIMER};
+
     ok my $app = $class->new( exists $test->{args} ? $test->{args} : () ),
       "$name: App::Prove created OK";