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