diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-08-02 05:25:44 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-03 18:24:18 +0000 |
| commit | d135e0826fa12e553bd7097ce6e4ef5a65e18767 (patch) | |
| tree | 574d0145905c6fdc2f9e0c487df1b6a71fc45b21 /lib/Net | |
| parent | 670c206d1fe305b38dfbb1e20e5c966dc1f8e9e6 (diff) | |
| download | perl-d135e0826fa12e553bd7097ce6e4ef5a65e18767.tar.gz | |
on VMS, set non-blocking with ioctl, not fcntl
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F2BD7F8.8090003@mac.com>
p4raw-id: //depot/perl@20451
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Ping.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index 001ff2e891..4f4410687a 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -316,9 +316,9 @@ sub socket_blocking_mode # 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: $!"); |