mark sockets as binary so we don't corrupt encoding

diff --git a/bin/ldap-rewrite.pl b/bin/ldap-rewrite.pl
index 6d2fa2d..4e2d55e 100755 (executable)
--- a/bin/ldap-rewrite.pl
+++ b/bin/ldap-rewrite.pl
@@ -131,6 +131,10 @@ sub run_proxy {
        die "Could not create listener socket: $!\n" unless $listenersock;
        die "Could not create connection to server: $!\n" unless $targetsock;
 
+       # mark sockets as binary
+       binmode( $listenersock );
+       binmode( $targetsock );
+
        my $sel = IO::Select->new($listenersock);
        my %Handlers;
        while (my @ready = $sel->can_read) {