diff options
author | David Golden <dagolden@cpan.org> | 2011-01-17 20:39:14 -0500 |
---|---|---|
committer | David Golden <dagolden@cpan.org> | 2011-01-17 20:39:14 -0500 |
commit | 435aa301127ed481169903cb35187bde1ea44928 (patch) | |
tree | 2add4bd731a68f78dea9ef0e0a34e63783890fb3 /cpan | |
parent | c0a76f0603654cca986933e58136edf51ee334b8 (diff) | |
download | perl-435aa301127ed481169903cb35187bde1ea44928.tar.gz |
Update HTTP::Tiny to CPAN version 0.009
[DELTA]
0.009 2011-01-17 16:29:22 EST5EDT
- Added workaround for IO::Socket::SSL certificate verification bug
- Minor documentation improvements
- POST example added to the eg/ directory in the distribution tarball
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index 5a22982ea8..4686fe8db0 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -9,7 +9,7 @@ # package HTTP::Tiny; BEGIN { - $HTTP::Tiny::VERSION = '0.008'; + $HTTP::Tiny::VERSION = '0.009'; } use strict; use warnings; @@ -325,6 +325,12 @@ sub new { }, $class; } +my $ssl_verify_args = { + check_cn => "when_only", + wildcards_in_alt => "anywhere", + wildcards_in_cn => "anywhere" +}; + sub connect { @_ == 4 || croak(q/Usage: $handle->connect(scheme, host, port)/); my ($self, $scheme, $host, $port) = @_; @@ -353,8 +359,9 @@ sub connect { if ( $scheme eq 'https') { IO::Socket::SSL->start_SSL($self->{fh}); ref($self->{fh}) eq 'IO::Socket::SSL' - and $self->{fh}->verify_hostname( $host, 'http' ) - or croak(qq/SSL connection failed for $host\n/); + or die(qq/SSL connection failed for $host\n/); + $self->{fh}->verify_hostname( $host, $ssl_verify_args ) + or die(qq/SSL certificate not valid for $host\n/); } $self->{host} = $host; @@ -752,7 +759,7 @@ HTTP::Tiny - A small, simple, correct HTTP/1.1 client =head1 VERSION -version 0.008 +version 0.009 =head1 SYNOPSIS @@ -866,8 +873,8 @@ be updated accordingly. $response = $http->request($method, $url); $response = $http->request($method, $url, \%options); -Executes an HTTP request of the given method type ('GET', 'HEAD', 'PUT', etc.) -on the given URL. The URL must have unsafe characters escaped and +Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST', +'PUT', etc.) on the given URL. The URL must have unsafe characters escaped and international domain names encoded. A hashref of options may be appended to modify the request. |