for my $file (@files) {
print STDERR "file: $file\n";
my $subdirs = recursive_file_listing($ftp,$file);
- print STDERR "subdirs is :";
- print STDERR p($subdirs);
if (defined $subdirs) {
+ print STDERR "subdirs is :";
+ print STDERR p($subdirs);
$listing->{$file} = $subdirs;
} else {
+ print STDERR "No subdirectory\n";
$listing->{$file} = $orig_dir.'/'.$dir.'/'.$file;
}
}