From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 24 Mar 2009 23:43:24 +0000 (+0000)
Subject: fix warnings
X-Git-Tag: 0.0801~8
X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=commitdiff_plain;h=24aed6f30fef226076cf963d6407151e6eb082e5

fix warnings

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/Redis@55 447b33ff-793d-4489-8442-9bea7d161be5
---

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 '-' ) {