diff options
author | Graham Barr <gbarr@pobox.com> | 2008-02-10 01:56:05 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:49 -0600 |
commit | c37154d1b5c996d12c62dd4ac641f676dc0b3c70 (patch) | |
tree | 2d5b5b56f77e4625c922273bf9e32fdebd1d6193 | |
parent | ff9d37cef81d6728d465175bb1d35a4ef6cd7e7a (diff) | |
download | perl-libnet-c37154d1b5c996d12c62dd4ac641f676dc0b3c70.tar.gz |
Catch timeout condition while doing an abort
-rw-r--r-- | Net/FTP/dataconn.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Net/FTP/dataconn.pm b/Net/FTP/dataconn.pm index e7645cb..bc6ba7f 100644 --- a/Net/FTP/dataconn.pm +++ b/Net/FTP/dataconn.pm @@ -63,7 +63,7 @@ sub close { if (exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) { my $junk; - $data->read($junk, 1, 0); + eval { local($SIG{__DIE__}); $data->read($junk, 1, 0) }; return $data->abort unless ${*$data}{'net_ftp_eof'}; } |