Update HTTP-Tiny to CPAN version 0.031
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 17 Jun 2013 08:57:23 +0000 (09:57 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 17 Jun 2013 08:57:23 +0000 (09:57 +0100)
  [DELTA]

  0.031     2013-06-16 23:18:18 America/New_York

    [FIXED]

    - Fixed bug receiving 0-length content bodies

Porting/Maintainers.pl
cpan/HTTP-Tiny/lib/HTTP/Tiny.pm

index 0b95b1b..bfd6f11 100755 (executable)
@@ -929,7 +929,7 @@ use File::Glob qw(:case);
 
     'HTTP::Tiny' => {
         'MAINTAINER'   => 'dagolden',
-        'DISTRIBUTION' => 'DAGOLDEN/HTTP-Tiny-0.030.tar.gz',
+        'DISTRIBUTION' => 'DAGOLDEN/HTTP-Tiny-0.031.tar.gz',
         'FILES'        => q[cpan/HTTP-Tiny],
         'EXCLUDED'     => [
             't/00-report-prereqs.t',
index a37a477..45a1e37 100644 (file)
@@ -3,7 +3,7 @@ package HTTP::Tiny;
 use strict;
 use warnings;
 # ABSTRACT: A small, simple, correct HTTP/1.1 client
-our $VERSION = '0.030'; # VERSION
+our $VERSION = '0.031'; # VERSION
 
 use Carp ();
 
@@ -739,7 +739,7 @@ sub read_content_body {
     my ($self, $cb, $response, $content_length) = @_;
     $content_length ||= $response->{headers}{'content-length'};
 
-    if ( $content_length ) {
+    if ( defined $content_length ) {
         my $len = $content_length;
         while ($len > 0) {
             my $read = ($len > BUFSIZE) ? BUFSIZE : $len;
@@ -974,7 +974,7 @@ HTTP::Tiny - A small, simple, correct HTTP/1.1 client
 
 =head1 VERSION
 
-version 0.030
+version 0.031
 
 =head1 SYNOPSIS