http://haberdasherhq.org Patches for Term::Screen::Wizard en-en <pre>*** /usr/local/share/perl/5.6.1/Term/Screen/Wizard.pm.old 2003-02-14 09:59:20.000000000 +0000 --- /usr/local/share/perl/5.6.1/Term/Screen/Wizard.pm 2003-02-14 09:59:29.000000000 +0000 *************** *** 18,26 **** foreach my $f (@_) { $cmd.="$f "; } system "stty -raw echo"; system @_; ! system "stty raw -echo"; } sub add_screen { --- 18,27 ---- foreach my $f (@_) { $cmd.="$f "; } + my $saveterm = `stty -g`; system "stty -raw echo"; system @_; ! system "stty $saveterm"; } sub add_screen { </pre> Mon, 28 Aug 2006 18:33:08 +0100 http://haberdasherhq.org/demo/patches/show/5 http://haberdasherhq.org/demo/patches/show/5