diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-05 01:53:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-05 01:53:24 +0000 |
| commit | ef73e1dbcc1c9fa8d7d2ed6d1e805a92a117062b (patch) | |
| tree | 1f5d0e5015e66922553273aaf1e87000fc4599ad /lib/Net/Ping.pm | |
| parent | 0d617128e024ee17ea2142dbf823cda5cd4d2d2d (diff) | |
| download | perl-ef73e1dbcc1c9fa8d7d2ed6d1e805a92a117062b.tar.gz | |
Upgrade to Net::Ping 2.17.
p4raw-id: //depot/perl@16409
Diffstat (limited to 'lib/Net/Ping.pm')
| -rw-r--r-- | lib/Net/Ping.pm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index 6c61a47bf8..f689047ffb 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -1,6 +1,6 @@ package Net::Ping; -# $Id: Ping.pm,v 1.31 2002/04/11 16:45:06 rob Exp $ +# $Id: Ping.pm,v 1.33 2002/05/03 21:54:59 rob Exp $ require 5.002; require Exporter; @@ -12,11 +12,11 @@ use FileHandle; use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET inet_aton inet_ntoa sockaddr_in ); use Carp; -use Errno qw(ECONNREFUSED); +use POSIX qw(ECONNREFUSED); @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.16"; +$VERSION = "2.17"; # Constants @@ -26,6 +26,12 @@ $max_datasize = 1024; # Maximum data bytes in a packet # The data we exchange with the server for the stream protocol $pingstring = "pingschwingping!\n"; +if ($^O =~ /Win32/i) { + # Hack to avoid this Win32 spewage: + # Your vendor has not defined POSIX macro ECONNREFUSED + *ECONNREFUSED = sub {10061;}; # "Unknown Error" Special Win32 Response? +}; + # Description: The pingecho() subroutine is provided for backward # compatibility with the original Net::Ping. It accepts a host # name/IP and an optional timeout in seconds. Create a tcp ping @@ -367,8 +373,7 @@ sub ping_tcp $@ = ""; $! = 0; $ret = $self -> tcp_connect( $ip, $timeout); - $ret = 1 if $! == ECONNREFUSED # Connection refused - || $@ =~ /Unknown Error/i; # Special Win32 response? + $ret = 1 if $! == ECONNREFUSED; # Connection refused $self->{"fh"}->close(); return $ret; } @@ -667,7 +672,7 @@ __END__ Net::Ping - check a remote host for reachability -$Id: Ping.pm,v 1.31 2002/04/11 16:45:06 rob Exp $ +$Id: Ping.pm,v 1.33 2002/05/03 21:54:59 rob Exp $ =head1 SYNOPSIS |