diff options
| author | Graham Barr <gbarr@pobox.com> | 2002-05-24 17:57:18 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2002-05-24 17:57:18 +0000 |
| commit | 67c53808104993e3f5a6a79adecd0da4c10e67ee (patch) | |
| tree | 3f4ad19daf599c192f072ca320320b18434ced51 | |
| parent | e6cc0f2eb3de6728314d816f571993ddc63d1d3c (diff) | |
| download | perl-libnet-67c53808104993e3f5a6a79adecd0da4c10e67ee.tar.gz | |
Net::FTP
- Minor change to pattern to extract unique filename from server response
| -rw-r--r-- | Net/FTP.pm | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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.64"; # $Id: //depot/libnet/Net/FTP.pm#67 $ +$VERSION = "2.65"; # $Id: //depot/libnet/Net/FTP.pm#68 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -756,7 +756,7 @@ sub _store_cmd $sock->close() or return undef; - if ('STOU' eq uc $cmd and $ftp->message =~ m/unique\ file\ name:(.*)\)|"(.*)"/) + if ('STOU' eq uc $cmd and $ftp->message =~ m/unique\s+file\s*name\s*:\s*(.*)\)|"(.*)"/) { require File::Basename; $remote = File::Basename::basename($+) @@ -1710,6 +1710,6 @@ under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/FTP.pm#67 $> +I<$Id: //depot/libnet/Net/FTP.pm#68 $> =cut |