diff options
| author | alexander_bluhm@genua.de <alexander_bluhm@genua.de> | 2005-12-13 02:44:47 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-15 14:44:51 +0000 |
| commit | 2708b1f4ca0964d70333e73d846ad866747c9c0a (patch) | |
| tree | 9cf36d53e865238043d1fc5531d86f7a12339c88 /lib/Net | |
| parent | 53e45abf34362f19d11021f55dda2dc5a3123da9 (diff) | |
| download | perl-2708b1f4ca0964d70333e73d846ad866747c9c0a.tar.gz | |
[perl #37915] Bad select error handling in Net::Ping
From: alexander_bluhm@genua.de (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-37915-125655.19.2646201463531@perl.org>
p4raw-id: //depot/perl@26367
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Ping.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index bd0855f765..fee428c5ea 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -16,7 +16,7 @@ use Carp; @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.31_02"; +$VERSION = "2.31_03"; sub SOL_IP { 0; }; sub IP_TOS { 1; }; @@ -454,7 +454,7 @@ sub ping_icmp { $nfound = mselect((my $rout=$rbits), undef, undef, $timeout); # Wait for packet $timeout = $finish_time - &time(); # Get remaining time - if (!defined($nfound)) # Hmm, a strange error + if ($nfound == -1) # Hmm, a strange error { $ret = undef; $done = 1; |