summaryrefslogtreecommitdiffstats
path: root/lib/App/Termcast.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Termcast.pm')
-rw-r--r--lib/App/Termcast.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/App/Termcast.pm b/lib/App/Termcast.pm
index a5bf717..c0e7077 100644
--- a/lib/App/Termcast.pm
+++ b/lib/App/Termcast.pm
@@ -52,6 +52,11 @@ sub run {
my $pty = IO::Pty::Easy->new;
$pty->spawn(@argv);
+ my $termios = POSIX::Termios->new;
+ $termios->getattr(fileno($pty->{pty}));
+ my $lflag = $termios->getlflag;
+ $termios->setlflag($lflag | POSIX::ECHO);
+ $termios->setattr(fileno($pty->{pty}), POSIX::TCSANOW);
my ($rin, $rout) = '';
vec($rin, fileno(STDIN) ,1) = 1;