diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-08-05 02:26:41 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-08-05 02:26:41 +0000 |
| commit | 1d037aa83e937090ebf0ff6a1ff62009f0a1eb35 (patch) | |
| tree | 1565c43af02e5c123fba367654a42e714629f699 | |
| parent | 620eefe3e4b13db76d6baa12e40cceedd807322f (diff) | |
| download | perl-libnet-1d037aa83e937090ebf0ff6a1ff62009f0a1eb35.tar.gz | |
Net::FTP
- Allow spaces in filenames (ick!)
| -rw-r--r-- | Net/FTP.pm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -21,7 +21,7 @@ use Net::Cmd; use Net::Config; # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.45"; # $Id: //depot/libnet/Net/FTP.pm#30 $ +$VERSION = "2.46"; # $Id: //depot/libnet/Net/FTP.pm#31 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -341,7 +341,7 @@ sub get unless(defined $local); croak("Bad remote filename '$remote'\n") - if $remote =~ /[\s\r\n]/s; + if $remote =~ /[\r\n]/s; ${*$ftp}{'net_ftp_rest'} = $where if ($where); @@ -443,7 +443,7 @@ sub rmdir # Try to delete the contents # Get a list of all the files in the directory - my $filelist = $ftp->ls($dir) + my $filelist = $ftp->ls($dir); return undef unless $filelist && @$filelist; # failed, it is probably not a directory @@ -557,7 +557,7 @@ sub _store_cmd } croak("Bad remote filename '$remote'\n") - if $remote =~ /[\s\r\n]/s; + if $remote =~ /[\r\n]/s; if(defined $localfd) { |