Reverse the direction of the IO::Pty used for ssh.

May address #114. May address #164.
2012-04-16 04:05:47 -07:00
parent bcb96d9337
commit fe8e50de2b
1 changed files with 4 additions and 5 deletions
@@ -192,10 +192,10 @@ if ( (not defined $colors)
 my $pid = fork;
 die "$0: fork: $!\n" unless ( defined $pid );
 if ( $pid == 0 ) { # child
+  $pty->close_slave();
+  open STDOUT, ">&", $pty or die;
+  open STDERR, ">&", $pty or die;
  close $pty;
-  open STDOUT, ">&", $pty_slave->fileno() or die;
-  open STDERR, ">&", $pty_slave->fileno() or die;
-  close $pty_slave;

  my @server = ( 'new', '-s' );

@@ -218,8 +218,7 @@ if ( $pid == 0 ) { # child
  die "Cannot exec ssh: $!\n";
 } else { # server
  my ( $ip, $port, $key );
-  $pty->close_slave();
-  LINE: while ( <$pty> ) {
+  LINE: while ( <$pty_slave> ) {
    chomp;
    if ( m{^MOSH IP } ) {
      ( $ip ) = m{^MOSH IP (\S+)\s*$} or die "Bad MOSH IP string: $_\n";