| Subject: | Missing parameter causes isdir to die |
If Net::FTP::isdir fails, $setmsg is called without the $ftp-argument
causing it to die.
| Subject: | File.pm.patch |
--- File.pm.old 2009-04-22 16:38:59.000000000 +0200
+++ File.pm.new 2009-04-22 16:40:13.000000000 +0200
@@ -91,7 +91,7 @@ sub Net::FTP::isdir {
my $r = $ftp->cwd(@_);
my $d = $ftp->cwd($c);
my $e = $ftp->pwd();
- $setmsg->("Could not CWD into original directory $c") if $c ne $e || !$d;
+ $setmsg->($ftp,"Could not CWD into original directory $c") if $c ne $e || !$d;
return undef if $_fatal;
return $r ? 1 : 0;
}