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 (file)
--- 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;