diff options
-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'}; } |