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.
62 lines
1.9 KiB
62 lines
1.9 KiB
2 years ago
|
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
|
||
|
|
|