I've the same problem with a script that run under debian 3.0 for the last years. now, with SuSE 9.2 und perl 5.8.5 I get
Permission denied at /usr/lib/perl5/site_perl/5.8.5/Net/SFTP.pm line 37
and this line or 5 lines there look like:
sub init {
my $sftp = shift;
my %param = @_;
$sftp->{debug} = delete $param{debug};
$param{ssh_args} ||= [];
$sftp->{_msg_id} = 0;
my $ssh = Net::SSH::Perl->new($sftp->{host}, protocol => 2,
debug => 1, @{ $param{ssh_args} });
AAA $ssh->login($param{user}, $param{password});
$sftp->{ssh} = $ssh;
my $channel = $sftp->_open_channel;
$sftp->{channel} = $channel;
$sftp->do_init;
$sftp;
}
Line 37 is where you find "AAA" in the beginning of the line.
I don't know much about perl but I've to get it working....
Please help me.
Thanks
LeeLooB