Close some leftover fd's

This commit is contained in:
Anton Lundin
2013-01-18 00:18:56 +01:00
committed by Keith Winstein
parent dd5a69bc70
commit 077b664f13
+2
View File
@@ -225,6 +225,7 @@ if ( $pid == 0 ) { # child
open STDOUT, ">&", $pty or die; open STDOUT, ">&", $pty or die;
open STDERR, ">&", $pty or die; open STDERR, ">&", $pty or die;
open STDIN, "<&", $pty or die; open STDIN, "<&", $pty or die;
close $pty;
my @server = ( 'new', '-s' ); my @server = ( 'new', '-s' );
@@ -270,6 +271,7 @@ if ( $pid == 0 ) { # child
} }
} }
waitpid $pid, 0; waitpid $pid, 0;
close $pty_slave;
if ( not defined $ip ) { if ( not defined $ip ) {
die "$0: Did not find remote IP address (is SSH ProxyCommand disabled?).\n"; die "$0: Did not find remote IP address (is SSH ProxyCommand disabled?).\n";