Home: Perl Programming Help: Intermediate:
"Can't set socket non-blocking" error



hem
User

Apr 30, 2009, 11:39 AM


Views: 2845
"Can't set socket non-blocking" error

Hi

Any ideas how to get past this :


C:\Perl\SSh>perl SSh.pl
Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::Fas
tCalc at C:/Perl/site/lib/Crypt/DH.pm line 6
Can't set socket non-blocking: Bad file descriptor at C:/Perl/site/lib/Net/SSH/P
erl.pm line 217.

Script:
use Net::SSH::Perl;
my $host = "abc";
$user = "abcd";
$pass = "abcde";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
$cmd = "ls -l";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print "All $stdout, $stderr, $exit\n";

Code