moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

use Time::HiRes whenever available, independently of perl version

Browse Source
This commit is contained in:
Yang Tse 2009-12-22 13:46:06 +00:00
parent 7bede9180d
commit 271dc9c582
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/ftpserver.pl
View File

@ -44,7 +44,9 @@ require "getpart.pm";
require "ftp.pm";
BEGIN {
if($] >= 5.007003) {
# sub second timestamping needs Time::HiRes
eval {
no warnings "all";
require Time::HiRes;
import Time::HiRes qw( gettimeofday );
}
@ -141,7 +143,8 @@ sub getlogfilename {
#
sub logmsg {
my $now;
if($] >= 5.007003) {
# sub second timestamping needs Time::HiRes
if($Time::HiRes::VERSION) {
my ($seconds, $usec) = gettimeofday();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($seconds);

13
tests/runtests.pl
View File

@ -58,8 +58,9 @@
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, ".");
# run time statistics needs perl 5.7 or newer
if($] >= 5.007003) {
# run time statistics needs Time::HiRes
eval {
no warnings "all";
require Time::HiRes;
import Time::HiRes qw( time );
}
@ -3080,8 +3081,8 @@ while(@ARGV) {
$keepoutfiles=1;
}
elsif($ARGV[0] eq "-r") {
# run time statistics needs perl 5.7 or newer
if($] >= 5.007003) {
# run time statistics needs Time::HiRes
if($Time::HiRes::VERSION) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;
@ -3094,8 +3095,8 @@ while(@ARGV) {
}
}
elsif($ARGV[0] eq "-rf") {
# run time statistics needs perl 5.7 or newer
if($] >= 5.007003) {
# run time statistics needs Time::HiRes
if($Time::HiRes::VERSION) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;