diff --git a/lib/RedisDB.pm b/lib/RedisDB.pm index 39f8f40..c585568 100644 --- a/lib/RedisDB.pm +++ b/lib/RedisDB.pm @@ -439,7 +439,7 @@ sub get_reply { while ( not @{ $self->{_replies} } ) { my $ret = $self->{_socket}->recv( my $buffer, 131072 ); unless ( defined $ret ) { - next if $! == EINTR; + next if $! == EINTR or $! == 0; confess "Error reading reply from server: $!"; } if ( $buffer ne '' ) {