Need to close the stream on "Bad file decriptor"

Author: Jan Henning Thorsen

lib/Mojo/IOLoop/ReadWriteFork.pm

@@ -375,6 +375,7 @@ sub _stdin {
   my $stream = Mojo::IOLoop::Stream->new($handle);
 
   Scalar::Util::weaken($self);
+  $stream->on(error => sub { $! == 9 ? shift->close : return $self->emit(error => $_[1]); });
   $stream->reactor($self->reactor);
   $stream->timeout(0);
   $stream->start;

t/close.t

@@ -8,6 +8,7 @@ use Test::Memory::Cycle;
   my $output = '';
 
   $run->on(close => sub { Mojo::IOLoop->stop; });
+  $run->on(error => sub { diag "error: @_" });
   $run->on(read => sub { $output .= $_[1]; });
   $run->write("line one\nline two\n", sub { shift->close('stdin'); });
   $run->run(sub { print while <>; print "FORCE\n"; });
@@ -23,6 +24,7 @@ use Test::Memory::Cycle;
   my $output = '';
 
   $run->on(close => sub { Mojo::IOLoop->stop; });
+  $run->on(error => sub { diag "error: @_" });
   $run->on(read => sub { $output .= $_[1]; shift->close_gracefully('stdin'); });
   $run->write("line one\nline two\n");
   $run->run(sub { print while <>; print "GRACEFUL\n" });