From 521c6e738cd6418bae7ab91322deb8b5259de821 Mon Sep 17 00:00:00 2001
From: Oleg G <verdrehung@gmail.com>
Date: Sun, 17 Nov 2013 12:55:19 +0700
Subject: timeout for dataconnection creation

---
 Net/FTP.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Net/FTP.pm b/Net/FTP.pm
index 01e3649..83e5f3d 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -943,7 +943,8 @@ sub _dataconn {
       PeerAddr  => join(".", @port[0 .. 3]),
       PeerPort  => $port[4] * 256 + $port[5],
       LocalAddr => ${*$ftp}{'net_ftp_localaddr'},
-      Proto     => 'tcp'
+      Proto     => 'tcp',
+      Timeout   => $ftp->timeout
     );
   }
   elsif (defined ${*$ftp}{'net_ftp_listen'}) {
-- 
cgit v1.2.3-24-ge0c7