diff options
Diffstat (limited to 'tests/ftpserver.pl')
-rw-r--r-- | tests/ftpserver.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index cb60172e0..0f5aa55fb 100644 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -44,7 +44,9 @@ require "getpart.pm"; require "ftp.pm"; BEGIN { - if($] >= 5.007003) { + # sub second timestamping needs Time::HiRes + eval { + no warnings "all"; require Time::HiRes; import Time::HiRes qw( gettimeofday ); } @@ -141,7 +143,8 @@ sub getlogfilename { # sub logmsg { my $now; - if($] >= 5.007003) { + # sub second timestamping needs Time::HiRes + if($Time::HiRes::VERSION) { my ($seconds, $usec) = gettimeofday(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($seconds); |