diff options
| author | Craig A. Berry <craigberry@mac.com> | 2013-05-05 14:50:54 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2013-05-05 15:29:51 -0500 |
| commit | d358b6cc0072c98e9f7a7f0eba0e719792701e93 (patch) | |
| tree | b663c93e3370d7329ae044fa1133386fa5ea3c38 /dist/IO | |
| parent | c37c89bfb73fcc6cd67d2e6762e126577a413fe1 (diff) | |
| download | perl-d358b6cc0072c98e9f7a7f0eba0e719792701e93.tar.gz | |
Fix non-blocking sockets on VMS.
It turns out sockets on VMS (just like Windows) are blocking by
default, but the same code already in IO::Socket::blocking for
Windows that uses ioctl to set non-blocking works just fine on VMS.
This is part of [perl #116433] as the deficieny was exposed by
tests in IO::Socket::IP.
Diffstat (limited to 'dist/IO')
| -rw-r--r-- | dist/IO/lib/IO/Socket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm index 8873fbfc97..aa3c9add78 100644 --- a/dist/IO/lib/IO/Socket.pm +++ b/dist/IO/lib/IO/Socket.pm @@ -24,7 +24,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian'); @ISA = qw(IO::Handle); -$VERSION = "1.35"; +$VERSION = "1.36"; @EXPORT_OK = qw(sockatmark); @@ -167,7 +167,7 @@ sub blocking { my $sock = shift; return $sock->SUPER::blocking(@_) - if $^O ne 'MSWin32'; + if $^O ne 'MSWin32' && $^O ne 'VMS'; # Windows handles blocking differently # |