summaryrefslogtreecommitdiff
path: root/util/vndb-dev-server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/vndb-dev-server.pl')
-rwxr-xr-xutil/vndb-dev-server.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/util/vndb-dev-server.pl b/util/vndb-dev-server.pl
index c2cf5103..a712d094 100755
--- a/util/vndb-dev-server.pl
+++ b/util/vndb-dev-server.pl
@@ -70,13 +70,13 @@ sub pipe_fhs {
$a = AnyEvent::Handle->new(
fh => $a_fh,
on_read => sub { $b->push_write($a->{rbuf}); $a->{rbuf} = '' },
- on_error => sub { $done->end if $_[1] },
+ on_error => sub { if($_[1]) { $b->push_shutdown; $done->end } },
);
$done->begin;
$b = AnyEvent::Handle->new(
fh => $b_fh,
on_read => sub { $a->push_write($b->{rbuf}); $b->{rbuf} = '' },
- on_error => sub { $done->end if $_[1] },
+ on_error => sub { if($_[1]) { $a->push_shutdown; $done->end } },
);
$done->recv;
}