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

Comment out hi resolution time logging to verify if this is what might

Browse Source 
be contributing 90 additional seconds to the total time some autobuilds
now need to make a full test-run.
This commit is contained in:
Yang Tse 2009-12-17 22:28:40 +00:00
parent 4d0b0cae9e
commit 39cc424e81
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/ftpserver.pl
View File

@ -43,11 +43,11 @@ use IPC::Open2;
require "getpart.pm"; require "getpart.pm";
require "ftp.pm"; require "ftp.pm";
BEGIN { #BEGIN {
if($] > 5.006) { # if($] > 5.006) {
use Time::HiRes qw( gettimeofday ); # use Time::HiRes qw( gettimeofday );
} # }
} #}
my $ftpdnum=""; my $ftpdnum="";
@ -71,18 +71,18 @@ sub getlogfilename {
# #
sub logmsg { sub logmsg {
my $now; my $now;
if($] > 5.006) { # if($] > 5.006) {
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 @_;