diff options
author | Graham Barr <gbarr@pobox.com> | 2008-02-10 00:26:58 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:49 -0600 |
commit | 294c44c5961c6a7fa973b3b32b40099040a81684 (patch) | |
tree | 1f4d9cbe89b01279a12ee6d63e9994103ef3b773 | |
parent | 4850c165866e39532b0dcce59e67aae5af9a65ea (diff) | |
download | perl-libnet-294c44c5961c6a7fa973b3b32b40099040a81684.tar.gz |
Allow words other than FILE to prefix the unique name returned in info message from stou
-rw-r--r-- | Net/FTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -739,7 +739,7 @@ sub _store_cmd { $sock = $ftp->_data_cmd($cmd, grep { defined } $remote) or return undef; - $remote = ($ftp->message =~ /FILE:\s*(.*)/)[0] + $remote = ($ftp->message =~ /\w+\s*:\s*(.*)/)[0] if 'STOU' eq uc $cmd; my $blksize = ${*$ftp}{'net_ftp_blksize'}; |