Commit 414180b3 authored by Yang Tse's avatar Yang Tse
Browse files

gettimeofday() requires perl version newer than 5.6

parent 7603a29f

tests/ftpserver.pl

+2 −2
Original line number Diff line number Diff line
@@ -44,7 +44,7 @@ require "getpart.pm"; 
require "ftp.pm";



BEGIN {

    if($] >= 5.006) {

    if($] > 5.006) {

        use Time::HiRes qw( gettimeofday );

    }

}
@@ -71,7 +71,7 @@ sub getlogfilename { 
#

sub logmsg {

    my $now;

    if($] >= 5.006) {

    if($] > 5.006) {

        my ($seconds, $usec) = gettimeofday();

        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =

            localtime($seconds);