From: Pedro Melo <melo@simplicidade.org>
Date: Sat, 7 Aug 2010 11:55:55 +0000 (+0100)
Subject: Fix __read_response() call in keys(): used wrong command
X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=commitdiff_plain;h=3e839770e8b534a3394b02e579c90fbf37de97c7

Fix __read_response() call in keys(): used wrong command

Signed-off-by: Pedro Melo <melo@simplicidade.org>
---

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 4159bad..11ba2cb 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -116,7 +116,8 @@ sub keys {
 
   $self->__send_command('KEYS', @_);
 
-  my @keys = $self->__read_response('INFO', \my $type);
+  my @keys = $self->__read_response('KEYS', \my $type);
+  ## Support redis > 1.26
   return @keys if $type eq '*';
 
   ## Support redis <= 1.2.6