moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-11-10 19:45:04 -05:00
Code Issues Releases Wiki Activity

gettimeofday() requires perl version newer than 5.6

Browse Source
This commit is contained in:
Yang Tse 2009-12-17 03:50:32 +00:00
parent 7603a29fc3
commit 414180b363
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/ftpserver.pl
View File

@ -44,7 +44,7 @@ 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 );
} }
} }
@ -71,7 +71,7 @@ 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);