diff options
author | Craig A. Berry <craigberry@mac.com> | 2016-10-21 21:04:41 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2016-10-21 21:28:35 -0500 |
commit | 01b515d1d793fe9ee31ac67de850d943ce109686 (patch) | |
tree | 4c30edda6e3bc6cefc771984f48c8f71756e92fc /Porting | |
parent | 69c5d0e612c38cbd6e880e197337b13f0c92ffca (diff) | |
download | perl-01b515d1d793fe9ee31ac67de850d943ce109686.tar.gz |
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.
Diffstat (limited to 'Porting')
-rwxr-xr-x | Porting/Maintainers.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index dacc7ee232..7374702bbc 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -883,6 +883,9 @@ use File::Glob qw(:case); qw(t/600_pod.t), qw(t/601_pod-coverage.t), ], + 'CUSTOMIZED' => [ + qw( t/001_new.t t/010_pingecho.t ), + ], }, |