*** /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)