diff options
author | Yang Tse <yangsita@gmail.com> | 2009-12-17 03:50:32 +0000 |
---|---|---|
committer | Yang Tse <yangsita@gmail.com> | 2009-12-17 03:50:32 +0000 |
commit | 414180b363ab9ba1104bb738c4f9e80d525c9b3c (patch) | |
tree | d45c8c76bb9acfe15abad0faa5b1d1c796c09cce | |
parent | 7603a29fc3db05d354b5adf41d69f781437704ca (diff) |
gettimeofday() requires perl version newer than 5.6
-rw-r--r-- | tests/ftpserver.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index b15237fa7..44f681ec9 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -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); |