This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Check for echo in new Net::Ping tests.
authorCraig A. Berry <craigberry@mac.com>
Sat, 22 Oct 2016 02:04:41 +0000 (21:04 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sat, 22 Oct 2016 02:28:35 +0000 (21:28 -0500)
commit01b515d1d793fe9ee31ac67de850d943ce109686
tree4c30edda6e3bc6cefc771984f48c8f71756e92fc
parent69c5d0e612c38cbd6e880e197337b13f0c92ffca
Check for echo in new Net::Ping tests.

Net::Ping->new() with no parameters calls

  getservbyname('echo', 'tcp');

and falls down hard if that call does not succeed.  It would be
unusual to be running an echo service on any well-maintained
system on any platform.  On VMS at least, doing a name lookup on
a service that is not configured and enabled returns an error, and
thus any test that uses this ancient default will fail.  So skip
those tests if the getservbyname() fails.
Porting/Maintainers.pl
dist/Net-Ping/t/001_new.t
dist/Net-Ping/t/010_pingecho.t
t/porting/customized.dat