Small fixups to pty reversal to make work on Linux.
This commit is contained in:
+2
-1
@@ -193,9 +193,9 @@ my $pid = fork;
|
|||||||
die "$0: fork: $!\n" unless ( defined $pid );
|
die "$0: fork: $!\n" unless ( defined $pid );
|
||||||
if ( $pid == 0 ) { # child
|
if ( $pid == 0 ) { # child
|
||||||
$pty->close_slave();
|
$pty->close_slave();
|
||||||
|
$pty->set_raw();
|
||||||
open STDOUT, ">&", $pty or die;
|
open STDOUT, ">&", $pty or die;
|
||||||
open STDERR, ">&", $pty or die;
|
open STDERR, ">&", $pty or die;
|
||||||
close $pty;
|
|
||||||
|
|
||||||
my @server = ( 'new', '-s' );
|
my @server = ( 'new', '-s' );
|
||||||
|
|
||||||
@@ -218,6 +218,7 @@ if ( $pid == 0 ) { # child
|
|||||||
die "Cannot exec ssh: $!\n";
|
die "Cannot exec ssh: $!\n";
|
||||||
} else { # server
|
} else { # server
|
||||||
my ( $ip, $port, $key );
|
my ( $ip, $port, $key );
|
||||||
|
close $pty;
|
||||||
LINE: while ( <$pty_slave> ) {
|
LINE: while ( <$pty_slave> ) {
|
||||||
chomp;
|
chomp;
|
||||||
if ( m{^MOSH IP } ) {
|
if ( m{^MOSH IP } ) {
|
||||||
|
|||||||
Reference in New Issue
Block a user