| Subject: | Can not remove directories |
The Package Net::FTPServer::Full::DirHandler does not allow directory deletion in the latest version on CPAN.
It is just a missing '_'
Here it is fixed.
sub delete
{
my $self = shift;
# Darwin / Mac OS X cannot delete a directory with a trailing "/", so
# remove it first (thanks Luis Mun\~oz for fixing this).
my $path = $self->{_pathname};
$path =~ s,/+$,, if $path ne "/";
rmdir $path or return -1;
return 0;
}
Scott