--- AnyEvent-DBI/DBI.pm	2017/09/04 11:46:30	1.19
+++ AnyEvent-DBI/DBI.pm	2018/03/24 23:22:25	1.20
@@ -189,6 +189,8 @@
    my ($client, $server) = AnyEvent::Util::portable_socketpair
       or croak "unable to create AnyEvent::DBI communications pipe: $!";
 
+   AnyEvent::fh_unblock $client;
+
    my $fork = delete $arg{fork_template};
 
    my %dbi_args = %arg;