moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

- Attempt to fix script compilation failure on versions older than 5.007003, 

corelist -a Time::HiRes lists this as the first version released with it.

- Ensure ftp check delay timer is always an integral number.
This commit is contained in:
Yang Tse 2009-12-20 03:48:32 +00:00
parent af7a5b297f
commit f912f8d5d2
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/runtests.pl
View File

@ -59,8 +59,9 @@
BEGIN {
@INC=(@INC, $ENV{'srcdir'}, ".");
# run time statistics needs perl 5.7 or newer
if($] >= 5.007) {
use Time::HiRes qw( time );
if($] >= 5.007003) {
require Time::HiRes;
import Time::HiRes qw( time );
}
}
@ -644,7 +645,7 @@ sub verifyftp {
}
# we can/should use the time it took to verify the FTP server as a measure
# on how fast/slow this host/FTP is.
my $took = time()-$time;
my $took = int(0.5+time()-$time);
if($verbose) {
logmsg "RUN: Verifying our test ". uc($proto) .
@ -2950,7 +2951,7 @@ while(@ARGV) {
}
elsif($ARGV[0] eq "-r") {
# run time statistics needs perl 5.7 or newer
if($] >= 5.007) {
if($] >= 5.007003) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;
@ -2964,7 +2965,7 @@ while(@ARGV) {
}
elsif($ARGV[0] eq "-rf") {
# run time statistics needs perl 5.7 or newer
if($] >= 5.007) {
if($] >= 5.007003) {
keys(%timeprepini) = 1000;
keys(%timesrvrini) = 1000;
keys(%timesrvrend) = 1000;