Subject: | FTPSSL ls still broken |
As noted in bug report #63290, the ls command is not defined in
Net::FTPSSL, and nlst must be used. The following diff will take care
of it..
@@ -140,7 +140,7 @@
my $path = shift || '';
my $showall = shift || 0;
my @dirlist;
- @dirlist = $self->{xftp}->ls($path||'.');
+ @dirlist = $self->{xftp}->nlst($path||'.');
return unless (defined $dirlist[0]); #ADDED 20070613 TO PREVENT
WARNING.
shift (@dirlist) if ($dirlist[0] =~ /^total \d/o); #REMOVE TOTAL LINE!
my $i = 0;