From e31df073e0eb164e0f9b6f5b3759a8e30c0a3d97 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 17 Aug 2007 20:26:45 -0500
Subject: synopsis edit

---
 lib/IO/Pty/Easy.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.3-54-g00ecf