projects
/
perl-Redis.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
213be1c
)
return undef makes @list = ( undef ), which is sad
author
sunnavy
<sunnavy@bestpractical.com>
Wed, 21 Apr 2010 18:28:26 +0000
(
02:28
+0800)
committer
Dobrica Pavlinušić
<dpavlin@gmail.com>
Wed, 21 Apr 2010 18:52:24 +0000
(
02:52
+0800)
lib/Redis.pm
patch
|
blob
|
history
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) = @_;
- 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--;