This queue is for tickets about the Net-Ping CPAN distribution.

Report information
The Basics
Id:
17485
Status:
open
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
a [...] xygot.com
Cc:
AdminCc:

BugTracker
Severity:
Important
Broken in:
2.31
Fixed in:
(no value)



Subject: Setting ToS causes timeout on Win32
Setting ToS causes nothing to be sent out and the ping will eventually timeout when on Windows XP Pro, SP1 with ActiveState Perl 5.8.7.815. Seems to work OK on Linux with Perl 5.8.0. $p = Net::Ping->new('icmp', 3, 56, undef, 0x00); print "With zero TOS: $host is alive.\n" if $p->ping($host); Works OK $p = Net::Ping->new('icmp', 3, 56, undef, 0x28); print "With hex 28 TOS: $host is alive.\n" if $p->ping($host); Times out and nothing is sent out.
Le Sam. Fév. 04 20:50:23 2006, guest a écrit :
Show quoted text
> Setting ToS causes nothing to be sent out and the ping will
eventually
Show quoted text
> timeout when on Windows XP Pro, SP1 with ActiveState Perl 5.8.7.815. > Seems to work OK on Linux with Perl 5.8.0. > > $p = Net::Ping->new('icmp', 3, 56, undef, 0x00); > print "With zero TOS: $host is alive.\n" if $p->ping($host); > Works OK > > $p = Net::Ping->new('icmp', 3, 56, undef, 0x28); > print "With hex 28 TOS: $host is alive.\n" if $p->ping($host); > Times out and nothing is sent out. > >
On Sat Feb 04 20:50:23 2006, guest wrote:
Show quoted text
> Setting ToS causes nothing to be sent out and the ping will eventually > timeout when on Windows XP Pro, SP1 with ActiveState Perl 5.8.7.815. > Seems to work OK on Linux with Perl 5.8.0. > > $p = Net::Ping->new('icmp', 3, 56, undef, 0x00); > print "With zero TOS: $host is alive.\n" if $p->ping($host); > Works OK > > $p = Net::Ping->new('icmp', 3, 56, undef, 0x28); > print "With hex 28 TOS: $host is alive.\n" if $p->ping($host); > Times out and nothing is sent out. > >
According to http://support.microsoft.com/kb/248611, ToS is not supported on any Windows release over the past seven years. Net::Ping will now warn if ToS is set on a Windows machine. Look for this in the next release.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.