'IO::Socket::INET' => 0,
'Data::Dumper' => 0,
'Carp' => 0,
+ 'Encode' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Redis-*' },
use IO::Socket::INET;
use Data::Dumper;
use Carp qw/confess/;
+use Encode;
=head1 NAME
}
my $result = <$sock> || die "can't read socket: $!";
+ Encode::_utf8_on($result);
warn "<< $result" if $self->{debug};
my $type = substr($result,0,1);
$result = substr($result,1,-2);
my $v;
if ( $len > 0 ) {
read($self->{sock}, $v, $len) || die $!;
+ Encode::_utf8_on($v);
warn "<< ",Dumper($v),$/ if $self->{debug};
}
my $crlf;