added use bytes to support utf-8 encoded strings

[perl-Redis.git] / lib / Redis.pm

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 3cc595e..6a6aab3 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -77,6 +77,8 @@ our $AUTOLOAD;
 sub AUTOLOAD {
        my $self = shift;
 
+       use bytes;
+
        my $sock = $self->{sock} || die "no server connected";
 
        my $command = $AUTOLOAD;