daemon: warn on inheriting blocking listeners

[public-inbox.git] / t / common.perl

diff --git a/t/common.perl b/t/common.perl
index 3f05b68a368403d7acecac6b9b83ab0b7a87aa12..91d65c5fa380a41b47420993198a57dfada4bc6d 100644 (file)
--- a/t/common.perl
+++ b/t/common.perl
@@ -24,15 +24,18 @@ sub tcp_server () {
                Proto => 'tcp',
                Type => Socket::SOCK_STREAM(),
                Listen => 1024,
+               Blocking => 0,
        )
 }
 
 sub unix_server ($) {
-       IO::Socket::UNIX->new(
+       my $s = IO::Socket::UNIX->new(
                Listen => 1024,
                Type => Socket::SOCK_STREAM(),
                Local => $_[0],
-       )
+       );
+       $s->blocking(0);
+       $s;
 }
 
 sub spawn_listener {