Issue #300: Setting PERL_UNICODE breaks everything
Mark all file descriptors involved in raw ssh traffic as binary/raw
This commit is contained in:
@@ -140,6 +140,9 @@ if ( defined $fake_proxy ) {
|
|||||||
PeerPort => $port,
|
PeerPort => $port,
|
||||||
Proto => "tcp" )
|
Proto => "tcp" )
|
||||||
or die "$0: connect to host $ip port $port: $!\n";
|
or die "$0: connect to host $ip port $port: $!\n";
|
||||||
|
binmode($sock);
|
||||||
|
binmode(STDIN);
|
||||||
|
binmode(STDOUT);
|
||||||
|
|
||||||
sub cat {
|
sub cat {
|
||||||
my ( $from, $to ) = @_;
|
my ( $from, $to ) = @_;
|
||||||
|
|||||||
Reference in New Issue
Block a user