use __read_multi_bulk for keys command; mget/mset test number fixed

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

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 8df6779..6b1a457 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -55,6 +55,11 @@ sub new {
        $self;
 }
 
+my $multi_bulk_command = {
+       mset => 1,
+       mget => 1
+};
+
 my $bulk_command = {
        set => 1,       setnx => 1,
        rpush => 1,     lpush => 1,
@@ -89,7 +94,15 @@ sub AUTOLOAD {
 
        my $send;
 
-       if ( defined $bulk_command->{$command} ) {
+       if ( defined $multi_bulk_command->{$command} ) {
+               $send = 
+                         '*' . (scalar(@_) + 1)   . "\r\n" 
+                       . '$' . (length($command)) . "\r\n"
+                       . uc($command)             . "\r\n"
+                       ;
+               $send .= join "\r\n", map { '$' . length($_) . "\r\n" . $_ } @_;
+               $send .= "\r\n";
+       } elsif ( defined $bulk_command->{$command} ) {
                my $value = pop;
                $value = '' if ! defined $value;
                $send
@@ -131,9 +144,7 @@ sub AUTOLOAD {
                }
                return $hash;
        } elsif ( $command eq 'keys' ) {
-               my $keys = $self->__read_bulk($result);
-               return split(/\s/, $keys) if $keys;
-               return;
+               return $self->__read_multi_bulk($result);
        }
 
        if ( $type eq '-' ) {