diff options
| author | vividsnow <vividsnow@gmail.com> | 2020-07-31 00:37:58 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-30 16:37:58 -0500 |
| commit | c6439962c995d4d7052af9fb3f92da93c1584b84 (patch) | |
| tree | 2b7449a8fe4c8f29b7f04b1440a4a5c481a87478 /dist/IO | |
| parent | fe9826e33c11ebd16105e6edec6ba6f7196e6629 (diff) | |
| download | perl-c6439962c995d4d7052af9fb3f92da93c1584b84.tar.gz | |
IO::Socket::UNIX: synchronize behavior with module documentation (#17787)
* 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
Diffstat (limited to 'dist/IO')
| -rw-r--r-- | dist/IO/lib/IO/Socket/UNIX.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 |