diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:26:45 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 20:26:45 -0500 |
| commit | e31df073e0eb164e0f9b6f5b3759a8e30c0a3d97 (patch) | |
| tree | f4cd51574efababf91604cc2af76d239a361b1d9 | |
| parent | 4ac20e6e324ed13dfc8142f78540ac4df5326592 (diff) | |
| download | io-pty-easy-e31df073e0eb164e0f9b6f5b3759a8e30c0a3d97.tar.gz io-pty-easy-e31df073e0eb164e0f9b6f5b3759a8e30c0a3d97.zip | |
synopsis edit
| -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 b07154f..590b3ec 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -25,7 +25,7 @@ our $VERSION = '0.01'; my $pty = IO::Pty::Easy->new; $pty->spawn("nethack"); - while (1) { + while ($pty->is_active) { my $input = # read a key here... $input = 'Elbereth' if $input eq "\ce"; my $chars = $pty->write($input, 0); |