From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Wed, 31 Oct 2001 13:47:04 +0000 (-0500)
Subject: Time::Hires test fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=add58217c06d6308f341533176f1eb11449911c8;p=p5sagit%2Fp5-mst-13.2.git

Time::Hires test fix
Message-Id: <011031134626.1227@DUPHY4.Physics.Drexel.Edu>

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

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index 6c84731..e6ceb93 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -156,14 +156,13 @@ unless (defined &Time::HiRes::gettimeofday
 
     my ($f, $r, $i);
 
-    print "# time...";
     $f = time; 
-    print "$f\nok 15\n";
+    print "# time...$f\n";
+    print "ok 15\n";
 
-    print "# sleep...";
     $r = [Time::HiRes::gettimeofday()];
     sleep (0.5);
-    print Time::HiRes::tv_interval($r), "\nok 16\n";
+    print "# sleep...", Time::HiRes::tv_interval($r), "\nok 16\n";
 
     $r = [Time::HiRes::gettimeofday()];
     $i = 5;