From e3d10fbb1a8e0f1b54b101aa2ff5f908ff6ddbae Mon Sep 17 00:00:00 2001
From: fbriol <fbriol@gmail.com>
Date: Mon, 13 Sep 2010 19:54:42 +0800
Subject: Use of undefined value at line 54 and 72.

---
 Net/FTP/dataconn.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.3-24-ge0c7