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