diff options
| author | doy <doy@tozt.net> | 2009-02-03 21:44:15 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-02-03 21:44:15 -0500 |
| commit | c86c82120d0ca83a1425778ac58e82c8bf79c73e (patch) | |
| tree | 133ec77c93320f7de66e592fa67627d8f35efc26 | |
| parent | fa131d2e90aebedfd30ea7426734089f8b1be69f (diff) | |
| download | io-pty-easy-c86c82120d0ca83a1425778ac58e82c8bf79c73e.tar.gz io-pty-easy-c86c82120d0ca83a1425778ac58e82c8bf79c73e.zip | |
meh, no idea why this is necessary
| -rw-r--r-- | lib/IO/Pty/Easy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index d02bbad..fdef28f 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -255,7 +255,7 @@ sub is_active { return 0 unless defined $self->{pid}; my $active = kill 0 => $self->{pid}; if ($active) { - my $pid = waitpid($self->{pid}, POSIX::WNOHANG); + my $pid = waitpid($self->{pid}, POSIX::WNOHANG()); $active = 0 if $pid == $self->{pid}; } if (!$active) { |