From 24aed6f30fef226076cf963d6407151e6eb082e5 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 24 Mar 2009 23:43:24 +0000
Subject: [PATCH] fix warnings

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@55 447b33ff-793d-4489-8442-9bea7d161be5
---
 lib/Redis.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Redis.pm b/lib/Redis.pm
index a35d14e..6a6d278 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -83,12 +83,13 @@ sub AUTOLOAD {
 
 	if ( defined $bulk_command->{$command} ) {
 		my $value = pop;
+		$value = '' if ! defined $value;
 		$send
 			= uc($command)
 			. ' '
 			. join(' ', @_)
 			. ' ' 
-			. length($value)
+			. length( $value )
 			. "\r\n$value\r\n"
 			;
 	} else {
@@ -121,7 +122,9 @@ sub AUTOLOAD {
 		}
 		return $hash;
 	} elsif ( $command eq 'keys' ) {
-		return split(/\s/, __sock_read_bulk($result));
+		my $keys = __sock_read_bulk($result);
+		return split(/\s/, $keys) if $keys;
+		return;
 	}
 
 	if ( $type eq '-' ) {
-- 
2.20.1