pid.diff

diff --git a/lib/Mojo/IOLoop/Stream.pm b/lib/Mojo/IOLoop/Stream.pm
index 8e86e77..1eca2f3 100644
--- a/lib/Mojo/IOLoop/Stream.pm
+++ b/lib/Mojo/IOLoop/Stream.pm
@@ -15,7 +15,7 @@ sub close {
   return unless my $reactor = $self->reactor;
   return unless my $handle  = delete $self->timeout(0)->{handle};
   $reactor->remove($handle);
-  close $handle;
+  close $handle if $self->{pid} == $$;
   $self->emit('close');
 }
 
@@ -39,7 +39,7 @@ sub is_writing {
   return !!length($self->{buffer}) || $self->has_subscribers('drain');
 }
 
-sub new { shift->SUPER::new(handle => shift, buffer => '', timeout => 15) }
+sub new { shift->SUPER::new(handle => shift, buffer => '', timeout => 15, pid => $$) }
 
 sub start {
   my $self = shift;