http://haberdasherhq.org Patches for Term::Screen en-en <pre>*** /usr/local/share/perl/5.6.1/Term/Screen.pm.old 2003-02-14 10:08:36.000000000 +0000 --- /usr/local/share/perl/5.6.1/Term/Screen.pm 2003-02-14 10:09:48.000000000 +0000 *************** *** 92,104 **** $this->at(0,0); # home cursor $this->{ECHO} = 1; # start off echoing $| = 1; # for output flush on writes # wrapped so inherited versions can call with different input codes eval { system('stty raw -echo'); }; # turn on raw input # ignore errors return $this; } ! sub DESTROY { system('stty -raw echo'); } } =item term(term) --- 92,108 ---- $this->at(0,0); # home cursor $this->{ECHO} = 1; # start off echoing $| = 1; # for output flush on writes + $this->{TERMSAVE} = `stty -g`; # wrapped so inherited versions can call with different input codes eval { system('stty raw -echo'); }; # turn on raw input # ignore errors return $this; } ! sub DESTROY { ! my ( $this ) = @_; ! eval { system("stty ".$this->{TERMSAVE}) } ! } =item term(term) </pre> Mon, 28 Aug 2006 18:31:28 +0100 http://haberdasherhq.org/demo/patches/show/4 http://haberdasherhq.org/demo/patches/show/4