r70698 - in /trunk/libredis-perl: Changes META.yml debian/changelog lib/Redis.pm t/02-responses.t

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

Author: ghedo-guest
Date: Sun Mar  6 15:47:32 2011
New Revision: 70698

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70698
Log:
release to unstable

Modified:
    trunk/libredis-perl/Changes
    trunk/libredis-perl/META.yml
    trunk/libredis-perl/debian/changelog
    trunk/libredis-perl/lib/Redis.pm
    trunk/libredis-perl/t/02-responses.t

Modified: trunk/libredis-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/Changes?rev=70698&op=diff
==============================================================================
--- trunk/libredis-perl/Changes (original)
+++ trunk/libredis-perl/Changes Sun Mar  6 15:47:32 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: trunk/libredis-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/META.yml?rev=70698&op=diff
==============================================================================
--- trunk/libredis-perl/META.yml (original)
+++ trunk/libredis-perl/META.yml Sun Mar  6 15:47:32 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: trunk/libredis-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/debian/changelog?rev=70698&op=diff
==============================================================================
--- trunk/libredis-perl/debian/changelog (original)
+++ trunk/libredis-perl/debian/changelog Sun Mar  6 15:47:32 2011
@@ -1,3 +1,9 @@
+libredis-perl (2:1.9040-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Alessandro Ghedini <al3xbio at gmail.com>  Sun, 06 Mar 2011 16:36:21 +0100
+
 libredis-perl (2:1.9030-1) unstable; urgency=low
 
   [ Alessandro Ghedini ]

Modified: trunk/libredis-perl/lib/Redis.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/lib/Redis.pm?rev=70698&op=diff
==============================================================================
--- trunk/libredis-perl/lib/Redis.pm (original)
+++ trunk/libredis-perl/lib/Redis.pm Sun Mar  6 15:47:32 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: trunk/libredis-perl/t/02-responses.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libredis-perl/t/02-responses.t?rev=70698&op=diff
==============================================================================
--- trunk/libredis-perl/t/02-responses.t (original)
+++ trunk/libredis-perl/t/02-responses.t Sun Mar  6 15:47:32 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();