From: sunnavy <sunnavy@bestpractical.com>
Date: Wed, 21 Apr 2010 18:28:26 +0000 (+0800)
Subject: return undef makes @list = ( undef ), which is sad
X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=commitdiff_plain;h=10440d1d2a277071cc6ef8022aebe76c0b3f0169

return undef makes @list = ( undef ), which is sad
---

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 55fd1a1..8df6779 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -153,7 +153,7 @@ sub AUTOLOAD {
 
 sub __read_bulk {
 	my ($self,$len) = @_;
-	return undef if $len < 0;
+	return if $len < 0;
 
 	my $v;
 	if ( $len > 0 ) {
@@ -168,7 +168,7 @@ sub __read_bulk {
 
 sub __read_multi_bulk {
 	my ($self,$size) = @_;
-	return undef if $size < 0;
+	return if $size < 0;
 	my $sock = $self->{sock};
 
 	$size--;