diff options
Diffstat (limited to 'tests/ftpserver.pl')
| -rw-r--r-- | tests/ftpserver.pl | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index aff415f77..a73db0fac 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -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 @_; |