From cba2da4a6694454d8e01d4108645f3129d93db0a Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Mon, 23 Sep 2002 14:01:24 +0000
Subject: Net::FTP - Fix unique name extraction to pick up name on initial
 response, not just the final response

---
 Net/FTP.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Net/FTP.pm b/Net/FTP.pm
index 078aa9a..4e09b59 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -22,7 +22,7 @@ use Net::Config;
 use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
 # use AutoLoader qw(AUTOLOAD);
 
-$VERSION = "2.66"; # $Id: //depot/libnet/Net/FTP.pm#69 $
+$VERSION = "2.67"; # $Id: //depot/libnet/Net/FTP.pm#70 $
 @ISA     = qw(Exporter Net::Cmd IO::Socket::INET);
 
 # Someday I will "use constant", when I am not bothered to much about
@@ -717,6 +717,9 @@ sub _store_cmd
  $sock = $ftp->_data_cmd($cmd, $remote) or 
 	return undef;
 
+ $remote = ($ftp->message =~ /FILE:\s*(.*)/)[0]
+   if 'STOU' eq uc $cmd;
+
  my $blksize = ${*$ftp}{'net_ftp_blksize'};
 
  my($count,$hashh,$hashb,$ref) = (0);
@@ -1717,6 +1720,6 @@ under the same terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/FTP.pm#69 $>
+I<$Id: //depot/libnet/Net/FTP.pm#70 $>
 
 =cut
-- 
cgit v1.2.3-24-ge0c7