From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 25 Oct 2005 12:35:29 +0000 (+0000)
Subject: t/TEST should require Time::HiRes only when it uses it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28ffa55a57d1b19a5f4e472983f2acf8c7c075ab;p=p5sagit%2Fp5-mst-13.2.git

t/TEST should require Time::HiRes only when it uses it.
This fixes minitest.

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

diff --git a/t/TEST b/t/TEST
index e4aa49b..4b96332 100755
--- a/t/TEST
+++ b/t/TEST
@@ -69,7 +69,7 @@ $ENV{EMXSHELL} = 'sh';        # For OS/2
 # Roll your own File::Find!
 use TestInit;
 use File::Spec;
-use Time::HiRes;
+if ($show_elapsed_time) { require Time::HiRes }
 my $curdir = File::Spec->curdir;
 my $updir  = File::Spec->updir;
 
@@ -263,7 +263,7 @@ EOT
     my $totmax = 0;
 
     while (my $test = shift @tests) {
-        my $test_start_time = Time::HiRes::time();
+        my $test_start_time = $show_elapsed_time ? Time::HiRes::time() : 0;
 
 	if ( $::infinite{$test} && $type eq 'compile' ) {
 	    print STDERR "$test creates infinite loop! Skipping.\n";