make spawn wait for the child to die before returning if there was an error

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm
index 64e09e8..ac72818 100644
--- a/lib/IO/Pty/Easy.pm
+++ b/lib/IO/Pty/Easy.pm
@@ -161,11 +161,13 @@ sub spawn {
     unless (defined $read_bytes) {
         kill TERM => $self->{pid};
         close $readp;
+        $self->_wait_for_inactive;
         croak "Cannot sync with child: $!";
     }
     close $readp;
     if ($read_bytes > 0) {
         $errno = $errno + 0;
+        $self->_wait_for_inactive;
         croak "Cannot exec(@_): $errno";
     }