C:\temp>perl -MNet::Ping -e "print $Net::Ping::VERSION";
2.63
Fails with
getaddrinfo(192.168.10.991,,AF_INET) failed - nodename nor servname pr
+ovided, or not known at C:\temp\ip.pl line 5.
However, If I replace Ping.pm with version
C:\temp>perl -MNet::Ping -e "print $Net::Ping::VERSION";
2.43
It Is successful.
C:\temp>ip.pl
Result: Ping: 192.168.10.991 => #### UNPINGABLE ####
Should this be raised as a bug?
#!/usr/bin/perl
use Net::Ping;
$IP="192.168.10.991";
$p = Net::Ping->new("icmp");
if ($p->ping($IP)) {
$RESULT="Ping: $IP => alive";
}
else{
$RESULT= "Ping: $IP => #### UNPINGABLE ####";
}
$p->close();
print "Result: $RESULT\n";