Issue #300: Setting PERL_UNICODE breaks everything

Mark all file descriptors involved in raw ssh traffic as binary/raw
This commit is contained in:
Daniel Drown
2012-07-17 10:12:18 -05:00
parent 5029775254
commit 7f0fdd5160
+3
View File
@@ -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 ) = @_;