diff options
| author | fbriol <fbriol@gmail.com> | 2010-09-13 19:54:42 +0800 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2011-01-23 00:37:38 +0800 |
| commit | e3d10fbb1a8e0f1b54b101aa2ff5f908ff6ddbae (patch) | |
| tree | 8d2215e64341aeff5b0e5f77b4f552fc20b8f6e7 | |
| parent | 8bbdc0c74a127359e2642a80676b42700c8ca0e5 (diff) | |
| download | perl-libnet-e3d10fbb1a8e0f1b54b101aa2ff5f908ff6ddbae.tar.gz | |
Use of undefined value at line 54 and 72.
| -rw-r--r-- | Net/FTP/dataconn.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Net/FTP/dataconn.pm b/Net/FTP/dataconn.pm index bc6ba7f..c2954f8 100644 --- a/Net/FTP/dataconn.pm +++ b/Net/FTP/dataconn.pm @@ -52,7 +52,8 @@ sub _close { $data->SUPER::close(); delete ${*$ftp}{'net_ftp_dataconn'} - if exists ${*$ftp}{'net_ftp_dataconn'} + if defined $ftp + && exists ${*$ftp}{'net_ftp_dataconn'} && $data == ${*$ftp}{'net_ftp_dataconn'}; } @@ -69,6 +70,8 @@ sub close { $data->_close; + return unless defined $ftp; + $ftp->response() == CMD_OK && $ftp->message =~ /unique file name:\s*(\S*)\s*\)/ && (${*$ftp}{'net_ftp_unique'} = $1); |