diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:29:10 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:29:10 -0500 |
commit | 41789a14fa36117fcb15776f5f3160591e7773cb (patch) | |
tree | e138375bf5ea95d897f57965213b7c1c91bb3962 | |
parent | e31df073e0eb164e0f9b6f5b3759a8e30c0a3d97 (diff) | |
download | io-pty-easy-41789a14fa36117fcb15776f5f3160591e7773cb.tar.gz io-pty-easy-41789a14fa36117fcb15776f5f3160591e7773cb.zip |
fixme
-rw-r--r-- | lib/IO/Pty/Easy.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index 590b3ec..c566079 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -161,6 +161,8 @@ sub spawn { my $errno; my $read_bytes = sysread($readp, $errno, 256); unless (defined $read_bytes) { + # XXX: should alarm here and follow up with SIGKILL if the process + # refuses to die kill TERM => $self->{pid}; close $readp; $self->_wait_for_inactive; |