diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-07-07 00:28:18 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-07-07 00:28:18 -0500 |
| commit | c1183b8fc1e8ca0bde1a100c7f3f9bd0c243633d (patch) | |
| tree | 5f27b4cd64924ea85fa8eab9aeb58d86d73e863c | |
| parent | 35d4d083d63a4f2590978cf5dc60a0f47043fda7 (diff) | |
| download | app-termcast-c1183b8fc1e8ca0bde1a100c7f3f9bd0c243633d.tar.gz app-termcast-c1183b8fc1e8ca0bde1a100c7f3f9bd0c243633d.zip | |
use the interface from the new version of io-pty-easy
| -rw-r--r-- | lib/App/Termcast.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm index 62e5bc3..87980ef 100644 --- a/lib/App/Termcast.pm +++ b/lib/App/Termcast.pm @@ -50,14 +50,9 @@ sub run { PeerPort => $self->port); $socket->write('hello '.$self->user.' '.$self->password."\n"); - my $pty = IO::Pty::Easy->new; + my $pty = IO::Pty::Easy->new(raw => 0); $pty->spawn(@argv); my $ptyfd = fileno($pty); - my $termios = POSIX::Termios->new; - $termios->getattr($ptyfd); - my $lflag = $termios->getlflag; - $termios->setlflag($lflag | POSIX::ECHO); - $termios->setattr($ptyfd, POSIX::TCSANOW); my ($rin, $rout) = ''; vec($rin, fileno(STDIN) ,1) = 1; |