diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-06-17 09:57:23 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-06-17 09:57:23 +0100 |
| commit | 3ea9257d13af7b9f4eb5c16b33c9358a322b05c1 (patch) | |
| tree | d5521b2bb762485680522a042ba1769e85c992f0 /cpan/HTTP-Tiny | |
| parent | 1bc742331781be2879ac907a4515cfb97cc08ebc (diff) | |
| download | perl-3ea9257d13af7b9f4eb5c16b33c9358a322b05c1.tar.gz | |
Update HTTP-Tiny to CPAN version 0.031
[DELTA]
0.031 2013-06-16 23:18:18 America/New_York
[FIXED]
- Fixed bug receiving 0-length content bodies
Diffstat (limited to 'cpan/HTTP-Tiny')
| -rw-r--r-- | cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index a37a47755d..45a1e371ec 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -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 |