diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-31 08:47:04 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-31 20:32:29 +0000 |
| commit | add58217c06d6308f341533176f1eb11449911c8 (patch) | |
| tree | 20bc4f6ecca5793e4a69b2048b472d6bfb69c8cc | |
| parent | 85b332e26be39e8deb56070cb1034370beeee539 (diff) | |
| download | perl-add58217c06d6308f341533176f1eb11449911c8.tar.gz | |
Time::Hires test fix
Message-Id: <011031134626.1227@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12797
| -rw-r--r-- | ext/Time/HiRes/HiRes.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t index 6c84731e20..e6ceb935c1 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; |