fixed Redis::Hash keys problem,

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

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 6b0916d..6513752 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -258,7 +258,9 @@ sub type {
 
 sub keys {
        my ( $self, $glob ) = @_;
-       return split(/\s/, $self->_sock_result_bulk( 'KEYS', $glob ));
+       my $keys = $self->_sock_result_bulk( 'KEYS', $glob );
+       return split(/\s/, $keys) if $keys;
+       return () if wantarray;
 }
 
 =head2 randomkey