From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 9 Sep 2008 17:36:41 +0000 (+0000)
Subject: Suck in r1147 from TH3's svn:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9965363eb5e229265d647be8c7f7971b7860e870;p=p5sagit%2Fp5-mst-13.2.git

Suck in r1147 from TH3's svn:
Make test work if HARNESS_TIMER=1. Thanks Petdance.

p4raw-id: //depot/perl@34329
---

diff --git a/ext/Test/Harness/t/prove.t b/ext/Test/Harness/t/prove.t
index 5dbbe0e..c808870 100644
--- a/ext/Test/Harness/t/prove.t
+++ b/ext/Test/Harness/t/prove.t
@@ -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";