Revision 24

Date:
2009/03/16 13:34:32
Author:
dpavlin
Revision Log:
we need to unset LANG if we don't want to corrupt encoding
Files:

Legend:

 
Added
 
Removed
 
Modified

  • bin/ldap-rewrite.pl

     
    131 131 die "Could not create listener socket: $!\n" unless $listenersock;
    132 132 die "Could not create connection to server: $!\n" unless $targetsock;
    133 133
    134 # mark sockets as binary
    135 binmode( $listenersock );
    136 binmode( $targetsock );
    137
    138 134 my $sel = IO::Select->new($listenersock);
    139 135 my %Handlers;
    140 136 while (my @ready = $sel->can_read) {
    … …  
    157 153 }
    158 154
    159 155
    156 $ENV{LANG} = 'C'; # so we don't double-encode utf-8 if LANG is utf-8
    157
    160 158 my $listenersock = IO::Socket::INET->new(
    161 159 Listen => 5,
    162 160 Proto => 'tcp',