diff options
| -rw-r--r-- | lib/IO/Pty/Easy.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index f6049c2..b2fae90 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -26,6 +26,7 @@ our $VERSION = '0.01'; while (1) { my $input = # read a key here... + my $input = 'Elbereth' if $input eq "\ce"; my $chars = $pty->write($input, 0); last if defined($chars) && $chars == 0; my $output = $pty->read(0); |