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

Reinstate hi resolution time logging since this is not what is 

now adding 90 extra seconds to the total time some autobuilds
need to make a full test-run.
This commit is contained in:
Yang Tse 2009-12-21 14:33:01 +00:00
parent 57d3488a0d
commit 1cfa52b67d
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/ftpserver.pl
View File

@ -43,11 +43,12 @@ use IPC::Open2;
require "getpart.pm";
require "ftp.pm";
#BEGIN {
# if($] > 5.006) {
# use Time::HiRes qw( gettimeofday );
# }
#}
BEGIN {
if($] >= 5.007003) {
require Time::HiRes;
import Time::HiRes qw( gettimeofday );
}
}
#**********************************************************************
# global vars...
@ -127,18 +128,18 @@ sub getlogfilename {
#
sub logmsg {
my $now;
# if($] > 5.006) {
# my ($seconds, $usec) = gettimeofday();
# my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
# localtime($seconds);
# $now = sprintf("%02d:%02d:%02d.%06d ", $hour, $min, $sec, $usec);
# }
# else {
if($] >= 5.007003) {
my ($seconds, $usec) = gettimeofday();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($seconds);
$now = sprintf("%02d:%02d:%02d.%06d ", $hour, $min, $sec, $usec);
}
else {
my $seconds = time();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($seconds);
$now = sprintf("%02d:%02d:%02d ", $hour, $min, $sec);
# }
}
if(open(LOGFILEFH, ">>$logfilename")) {
print LOGFILEFH $now;
print LOGFILEFH @_;