diff options
| -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 # |