--- bin/ldap-rewrite.pl	2009/03/16 13:27:44	23
+++ bin/ldap-rewrite.pl	2009/03/16 13:34:32	24
@@ -131,10 +131,6 @@
 	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) {
@@ -157,6 +153,8 @@
 }
 
 
+$ENV{LANG} = 'C'; # so we don't double-encode utf-8 if LANG is utf-8
+
 my $listenersock = IO::Socket::INET->new(
 	Listen => 5,
 	Proto => 'tcp',