diff options
| -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 f3b1eec..b41258c 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -316,7 +316,7 @@ sub close { sub _wait_for_inactive { my $self = shift; - 1 while $self->is_active; + select(undef, undef, undef, 0.01) while $self->is_active; } # }}} |