From: Yang Tse <yangsita@gmail.com>
Date: Thu, 17 Dec 2009 03:50:32 +0000 (+0000)
Subject: gettimeofday() requires perl version newer than 5.6
X-Git-Tag: curl-7_20_0~257
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=414180b363ab9ba1104bb738c4f9e80d525c9b3c;p=thirdparty%2Fcurl.git

gettimeofday() requires perl version newer than 5.6
---

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index b15237fa76..44f681ec93 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);