[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

ping via perl?

could this be a result of the perl5.004* vs. 5.005* situation?
if not, then--what?


use Net::Ping;

my $ip = "";
my $wait = 5;

$p = Net::Ping->new();
print "$ip is alive.\n" if $p->ping($ip);


Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be
16 at /usr/lib/perl5/5.005/i386-linux/Socket.pm line 295, <IN> chunk 3.
        Socket::sockaddr_in(undef) called at
/usr/lib/perl5/5.005/Net/Ping.pm line 374
        Net::Ping::ping_udp('Net::Ping=HASH(0x829e990)', 'M-P!X^E', 5)
called at /usr/lib/perl5/5.005/Net/Ping.pm line 154
        Net::Ping::ping('Net::Ping=HASH(0x829e990)', 'speedex.net')
called at ping.pl line 9
Debugged program terminated.  Use q to quit or R to restart,

Reply to: