In the short run marking individual tests as to-do would be better. What's really needed of course is to root around in Net::Ping and see if the unixy file locking is even necessary on VMS. It generally isn't with files, but I've no idea how sockets are handled.
Peter, any chance you can apply the attached patch and try the Net::Ping
tests again? I don't have a Multinet system with a recent Perl build on
it to try it out, but the docs and the headers make it appear that we can use the same alternative to fcntl that Win32 does.
--- lib/Net/Ping/t/190_alarm.t;-0 Sat Feb 8 03:46:16 2003
+++ lib/Net/Ping/t/190_alarm.t Sun Mar 9 16:12:00 2003
@@ -12,6 +12,10 @@
print "1..0 \# Skip: alarm borks on $^O $^X $] ?\n";
exit;
}
+ unless (getservbyname('echo', 'tcp')) {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
}
use strict;
