diff options
-rw-r--r-- | AUTHORS | 1 | ||||
-rw-r--r-- | dist/IO/lib/IO/Socket/UNIX.pm | 6 |
2 files changed, 6 insertions, 1 deletions
@@ -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 |