Re: Net::Ping failures on VMS (was Re: possible fix to File::Find problems)

[Craig A. Berry]

whoops, that's not the right patch. Let's try that again.

Craig A. Berry wrote:
Craig Berry wrote:

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.pm;-0  Fri Jul  4 09:31:18 2003
+++ lib/Net/Ping.pm     Mon Jul 21 19:15:42 2003
@@ -316,9 +316,9 @@
                         # set the non-blocking mode (set O_NONBLOCK)
 
   my $flags;
-  if ($^O eq 'MSWin32') {
-      # FIONBIO enables non-blocking sockets on windows.
-      # FIONBIO is (0x80000000|(4<<16)|(ord('f')<<8)|126), as per winsock.h.
+  if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+      # FIONBIO enables non-blocking sockets on windows and vms.
+      # FIONBIO is (0x80000000|(4<<16)|(ord('f')<<8)|126), as per winsock.h, ioctl.h
       my $f = 0x8004667e;
       my $v = pack("L", $block ? 0 : 1);
       ioctl($fh, $f, $v) or croak("ioctl failed: $!");