You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.9 KiB
61 lines
1.9 KiB
From c6439962c995d4d7052af9fb3f92da93c1584b84 Mon Sep 17 00:00:00 2001 |
|
From: vividsnow <vividsnow@gmail.com> |
|
Date: Fri, 31 Jul 2020 00:37:58 +0300 |
|
Subject: [PATCH] IO::Socket::UNIX: synchronize behavior with module |
|
documentation (#17787) |
|
MIME-Version: 1.0 |
|
Content-Type: text/plain; charset=UTF-8 |
|
Content-Transfer-Encoding: 8bit |
|
|
|
* synchronize behavior with module documentation |
|
|
|
IO::Socket docs states that passing Blocking => 0 will be set socket to non-blocking mode |
|
|
|
* Update AUTHORS |
|
* bump version |
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com> |
|
--- |
|
AUTHORS | 1 + |
|
dist/IO/lib/IO/Socket/UNIX.pm | 6 +++++- |
|
2 files changed, 6 insertions(+), 1 deletion(-) |
|
|
|
diff --git a/AUTHORS b/AUTHORS |
|
index 577ba7d0ee..299fdec8a8 100644 |
|
--- a/AUTHORS |
|
+++ b/AUTHORS |
|
@@ -1293,6 +1293,7 @@ Ville Skyttä <scop@cs132170.pp.htv.fi> |
|
Vincent Pit <perl@profvince.com> |
|
Vishal Bhatia <vishal@deja.com> |
|
Vitali Peil <vitali.peil@uni-bielefeld.de> |
|
+vividsnow <vividsnow@gmail.com> |
|
Vlad Harchev <hvv@hippo.ru> |
|
Vladimir Alexiev <vladimir@cs.ualberta.ca> |
|
Vladimir Marek <vlmarek@volny.cz> |
|
diff --git a/dist/IO/lib/IO/Socket/UNIX.pm b/dist/IO/lib/IO/Socket/UNIX.pm |
|
index 04b36eaf74..14d0b27a8c 100644 |
|
--- a/dist/IO/lib/IO/Socket/UNIX.pm |
|
+++ b/dist/IO/lib/IO/Socket/UNIX.pm |
|
@@ -11,7 +11,7 @@ use IO::Socket; |
|
use Carp; |
|
|
|
our @ISA = qw(IO::Socket); |
|
-our $VERSION = "1.41"; |
|
+our $VERSION = "1.42"; |
|
|
|
IO::Socket::UNIX->register_domain( AF_UNIX ); |
|
|
|
@@ -30,6 +30,10 @@ sub configure { |
|
$sock->socket(AF_UNIX, $type, 0) or |
|
return undef; |
|
|
|
+ if(exists $arg->{Blocking}) { |
|
+ $sock->blocking($arg->{Blocking}) or |
|
+ return undef; |
|
+ } |
|
if(exists $arg->{Local}) { |
|
my $addr = sockaddr_un($arg->{Local}); |
|
$sock->bind($addr) or |
|
-- |
|
2.25.4 |
|
|
|
|