X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FNet%2FPing.pm;h=c3673b103005639234d76b78e58678e749498e2e;hb=c798bd2165d7b5d59c62ab6330f7cf77ff8b09dd;hp=d78a14fbe82cc4d2ba1619e05063b07d8f943807;hpb=f62ce20a4126b1e303e2d4d0a5c1e049ef2cb0c2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index d78a14f..c3673b1 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -1,6 +1,6 @@
 package Net::Ping;
 
-# $Id: Ping.pm,v 1.11 2001/12/04 02:41:51 rob Exp $
+# $Id: Ping.pm,v 1.13 2001/12/07 02:18:44 rob Exp $
 
 require 5.002;
 require Exporter;
@@ -15,7 +15,7 @@ use Carp;
 
 @ISA = qw(Exporter);
 @EXPORT = qw(pingecho);
-$VERSION = 2.07;
+$VERSION = 2.09;
 
 # Constants
 
@@ -371,7 +371,7 @@ sub tcp_connect
         $child = waitpid($pid, &POSIX::WNOHANG);
         $! = $? >> 8;
         $@ = $!;
-        sleep 1;
+        select(undef, undef, undef, 0.1);
       } while time < $patience && $child != $pid;
 
       if ($child == $pid) {
@@ -595,7 +595,7 @@ __END__
 
 Net::Ping - check a remote host for reachability
 
-$Id: Ping.pm,v 1.11 2001/12/04 02:41:51 rob Exp $
+$Id: Ping.pm,v 1.13 2001/12/07 02:18:44 rob Exp $
 
 =head1 SYNOPSIS