r70693 - in /branches/upstream/libredis-perl/current: Changes META.yml lib/Redis.pm t/02-responses.t

[ghedo-guest at users.alioth.debian.org]

Author: ghedo-guest
Date: Sun Mar  6 15:35:52 2011
New Revision: 70693

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70693
Log:
[svn-upgrade] new version libredis-perl (1.9040)

Modified:
    branches/upstream/libredis-perl/current/Changes
    branches/upstream/libredis-perl/current/META.yml
    branches/upstream/libredis-perl/current/lib/Redis.pm
    branches/upstream/libredis-perl/current/t/02-responses.t

Modified: branches/upstream/libredis-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/Changes?rev=70693&op=diff
==============================================================================
--- branches/upstream/libredis-perl/current/Changes (original)
+++ branches/upstream/libredis-perl/current/Changes Sun Mar  6 15:35:52 2011
@@ -1,4 +1,7 @@
 Revision history for Redis
+
+1.904 Sat Mar  5 23:10:48 UTC 2011
+    * Fix bug with NIL multi-bulk replies (Case 42) RT#64040
 
 1.903 Tue Feb 22 13:04:24 UTC 2011
     * remove the Guard dependency

Modified: branches/upstream/libredis-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/META.yml?rev=70693&op=diff
==============================================================================
--- branches/upstream/libredis-perl/current/META.yml (original)
+++ branches/upstream/libredis-perl/current/META.yml Sun Mar  6 15:35:52 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Redis
-version:            1.903
+version:            1.904
 abstract:           perl binding for Redis database
 author:
     - Pedro Melo <melo at simplicidade.org>

Modified: branches/upstream/libredis-perl/current/lib/Redis.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/lib/Redis.pm?rev=70693&op=diff
==============================================================================
--- branches/upstream/libredis-perl/current/lib/Redis.pm (original)
+++ branches/upstream/libredis-perl/current/lib/Redis.pm Sun Mar  6 15:35:52 2011
@@ -17,7 +17,7 @@
 
 =cut
 
-our $VERSION = '1.903';
+our $VERSION = '1.904';
 
 =head1 SYNOPSIS
 
@@ -372,6 +372,8 @@
     return $self->__read_len($result + 2);
   }
   elsif ($type eq '*') {
+    return if $result < 0;
+
     my @list;
     while ($result--) {
       push @list, scalar($self->__read_response_r($command));

Modified: branches/upstream/libredis-perl/current/t/02-responses.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/t/02-responses.t?rev=70693&op=diff
==============================================================================
--- branches/upstream/libredis-perl/current/t/02-responses.t (original)
+++ branches/upstream/libredis-perl/current/t/02-responses.t Sun Mar  6 15:35:52 2011
@@ -79,4 +79,10 @@
 );
 
 
+## Nil multi-bulk responses
+r('*-1');
+lives_ok sub { $m = $r->__read_response('blpop') },
+  'Read a NIL multi-bulk response';
+is($m, undef, '... with the expected "undef" value');
+
 done_testing();