Subject: | Can't support SSH1 only - Use of uninitialized value $set_proto ... |
# perl perl_ssh.pl
Use of uninitialized value $set_proto in numeric eq (==) at /usr/local/lib64/perl5/Net/SSH/Perl.pm line 345.
Use of uninitialized value $proto in numeric eq (==) at /usr/local/lib64/perl5/Net/SSH/Perl.pm line 53.
Use of uninitialized value in numeric eq (==) at /usr/local/lib64/perl5/Net/SSH/Perl/Packet.pm line 72.
Use of uninitialized value in numeric eq (==) at /usr/local/lib64/perl5/Net/SSH/Perl.pm line 385.
Connection closed by remote host. at /usr/local/lib64/perl5/Net/SSH/Perl/SSH1.pm line 89.
[root@ca9 ~]# cat perl_ssh.pl
#!perl -w
use strict;
use Net::SSH::Perl;
my $host='(the host)';
my $ssh = Net::SSH::Perl->new($host, 'protocol' => '1');