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

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 55fd1a1..8df6779 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -153,7 +153,7 @@ sub AUTOLOAD {
 
 sub __read_bulk {
        my ($self,$len) = @_;
 
 sub __read_bulk {
        my ($self,$len) = @_;

-       return undef if $len < 0;
+       return if $len < 0;

 
        my $v;
        if ( $len > 0 ) {
 
        my $v;
        if ( $len > 0 ) {


@@ -168,7 +168,7 @@ sub __read_bulk {
 
 sub __read_multi_bulk {
        my ($self,$size) = @_;
 
 sub __read_multi_bulk {
        my ($self,$size) = @_;

-       return undef if $size < 0;
+       return if $size < 0;

        my $sock = $self->{sock};
 
        $size--;
        my $sock = $self->{sock};
 
        $size--;