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