diff options
| author | Oleg G <verdrehung@gmail.com> | 2013-11-17 12:55:19 +0700 |
|---|---|---|
| committer | Oleg G <verdrehung@gmail.com> | 2013-11-17 12:55:19 +0700 |
| commit | 521c6e738cd6418bae7ab91322deb8b5259de821 (patch) | |
| tree | c570dc72dec7bc8f0edcd181d572caa8b7ee37f8 | |
| parent | 004cdd23f4bee1da2e0a6821bcb51a58900a97c7 (diff) | |
| download | perl-libnet-521c6e738cd6418bae7ab91322deb8b5259de821.tar.gz | |
timeout for dataconnection creation
| -rw-r--r-- | Net/FTP.pm | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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'}) { |