diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/Ping.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Net/Ping.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/Net/Ping.pm b/Master/tlpkg/tlperl/lib/Net/Ping.pm index 1523af91dd3..2766c9edbb5 100644 --- a/Master/tlpkg/tlperl/lib/Net/Ping.pm +++ b/Master/tlpkg/tlperl/lib/Net/Ping.pm @@ -17,7 +17,7 @@ use Time::HiRes; @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.41"; +$VERSION = "2.43"; # Constants @@ -135,7 +135,7 @@ sub new $self->{"seq"} = 0; # For counting packets if ($self->{"proto"} eq "udp") # Open a socket { - $self->{"proto_num"} = (getprotobyname('udp'))[2] || + $self->{"proto_num"} = eval { (getprotobyname('udp'))[2] } || croak("Can't udp protocol by name"); $self->{"port_num"} = (getservbyname('echo', 'udp'))[2] || croak("Can't get udp echo port by name"); @@ -155,7 +155,7 @@ sub new elsif ($self->{"proto"} eq "icmp") { croak("icmp ping requires root privilege") if ($> and $^O ne 'VMS' and $^O ne 'cygwin'); - $self->{"proto_num"} = (getprotobyname('icmp'))[2] || + $self->{"proto_num"} = eval { (getprotobyname('icmp'))[2] } || croak("Can't get icmp protocol by name"); $self->{"pid"} = $$ & 0xffff; # Save lower 16 bits of pid $self->{"fh"} = FileHandle->new(); @@ -176,7 +176,7 @@ sub new } elsif ($self->{"proto"} eq "tcp" || $self->{"proto"} eq "stream") { - $self->{"proto_num"} = (getprotobyname('tcp'))[2] || + $self->{"proto_num"} = eval { (getprotobyname('tcp'))[2] } || croak("Can't get tcp protocol by name"); $self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] || croak("Can't get tcp echo port by name"); @@ -184,7 +184,7 @@ sub new } elsif ($self->{"proto"} eq "syn") { - $self->{"proto_num"} = (getprotobyname('tcp'))[2] || + $self->{"proto_num"} = eval { (getprotobyname('tcp'))[2] } || croak("Can't get tcp protocol by name"); $self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] || croak("Can't get tcp echo port by name"); @@ -1472,7 +1472,8 @@ Net::Ping - check a remote host for reachability $p = Net::Ping->new(); $p->hires(); ($ret, $duration, $ip) = $p->ping($host, 5.5); - printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration) + printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", + 1000 * $duration) if $ret; $p->close(); @@ -1736,7 +1737,9 @@ kinds of ICMP packets. The latest source tree is available via cvs: - cvs -z3 -q -d :pserver:anonymous@cvs.roobik.com.:/usr/local/cvsroot/freeware checkout Net-Ping + cvs -z3 -q -d \ + :pserver:anonymous@cvs.roobik.com.:/usr/local/cvsroot/freeware \ + checkout Net-Ping cd Net-Ping The tarball can be created as follows: |