summaryrefslogtreecommitdiff
path: root/Porting
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2016-10-21 21:04:41 -0500
committerCraig A. Berry <craigberry@mac.com>2016-10-21 21:28:35 -0500
commit01b515d1d793fe9ee31ac67de850d943ce109686 (patch)
tree4c30edda6e3bc6cefc771984f48c8f71756e92fc /Porting
parent69c5d0e612c38cbd6e880e197337b13f0c92ffca (diff)
downloadperl-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-xPorting/Maintainers.pl3
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 ),
+ ],
},