diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2014-01-30 09:58:24 -0800 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-01-30 09:58:24 -0800 |
| commit | 620ed1fc866758eff4e86c856f026b3bbeda08a0 (patch) | |
| tree | 32daa839a96ab629876cfea458d1502a7ab42ae9 | |
| parent | 2c6a5afd1ef525c30ad32427f4dd20bc6e819403 (diff) | |
| parent | 521c6e738cd6418bae7ab91322deb8b5259de821 (diff) | |
| download | perl-libnet-620ed1fc866758eff4e86c856f026b3bbeda08a0.tar.gz | |
Merge pull request #1 from olegwtf/master
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'}) { |