From fe8e50de2bc101989b0ce78f8942b9b5ea89346b Mon Sep 17 00:00:00 2001
From: "Jay Freeman (saurik)" <saurik@saurik.com>
Date: Mon, 16 Apr 2012 04:05:47 -0700
Subject: [PATCH] Reverse the direction of the IO::Pty used for ssh.

May address #114.
May address #164.
---
 scripts/mosh | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/scripts/mosh b/scripts/mosh
index b0bfb88..faa3176 100755
--- a/scripts/mosh
+++ b/scripts/mosh
@@ -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";