| Subject: | net::ping broken in 5.8.6 |
Seems net::ping does not work when run via AS perl 5.8.6. I'm on WinXP, SP2. Does not work with XP firewall on or off. Looks related to http://rt.perl.org:80/rt3/Ticket/Display.html?id=33664
Show quoted text
use Net::Ping;
$host = @ARGV[0];
$p = Net::Ping->new("icmp");
if ($p->ping($host,2)) {
print "$host, alive\n";
}
else {
print "$host, dead\n";
}
$p->close();
Show quoted text
This is perl, v5.8.6 built for MSWin32-x86-multi-thread
Show quoted text
>>>>
>>>
>perl -v
> perl ping1.pl 192.168.16.3
icmp socket error - at ping1.pl line 3
C:\Perl584\bin>perl -v
This is perl, v5.8.4 built for MSWin32-x86-multi-thread
Show quoted text>perl ping1.pl 192.168.16.3
192.168.16.3, alive
C:\>diff -qs c:\perl\lib\net\Ping.pm c:\Perl584\lib\net\Ping.pm
Files c:\perl\lib\net\Ping.pm and c:\Perl584\lib\net\Ping.pm are identical