Chris/cpan-rest-client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removing Crypt::SSLeay dependency

Browse Source
This commit is contained in:
Kevin L. Kane 2015-08-04 08:52:40 -04:00
parent f3e60356ec
commit 290e5c6401
3 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
META.yml
View File

@ -19,7 +19,7 @@ no_index:
- inc - inc
- t - t
requires: requires:
Crypt::SSLeay: 0 LWP::Protocol::https: 0
LWP::UserAgent: 0 LWP::UserAgent: 0
URI: 0 URI: 0
perl: 5.8.0 perl: 5.8.0

2
Makefile.PL
View File

@ -5,7 +5,7 @@ all_from 'lib/REST/Client.pm';
requires 'URI' => 0; requires 'URI' => 0;
requires 'LWP::UserAgent' => 0; requires 'LWP::UserAgent' => 0;
requires 'Crypt::SSLeay' => 0; requires 'LWP::Protocol::https' => '0';
test_requires 'Test::More' => '0.8'; test_requires 'Test::More' => '0.8';
WriteAll(); WriteAll();

6
lib/REST/Client.pm
View File

@ -79,7 +79,6 @@ our ($VERSION) = ('$Rev: 272 $' =~ /(\d+)/);
use URI; use URI;
use LWP::UserAgent; use LWP::UserAgent;
use Carp qw(croak carp); use Carp qw(croak carp);
use Crypt::SSLeay;
=head2 Construction and setup =head2 Construction and setup
@ -329,10 +328,6 @@ sub request {
$url = $self->_prepareURL($url); $url = $self->_prepareURL($url);
#to ensure we use our desired SSL lib
my $tmp_socket_ssl_version = $IO::Socket::SSL::VERSION;
$IO::Socket::SSL::VERSION = undef;
my $ua = $self->getUseragent(); my $ua = $self->getUseragent();
if(defined $self->getTimeout()){ if(defined $self->getTimeout()){
$ua->timeout($self->getTimeout); $ua->timeout($self->getTimeout);
@ -386,7 +381,6 @@ sub request {
} }
my $res = $self->getFollow ? $ua->request($req) : $ua->simple_request($req); my $res = $self->getFollow ? $ua->request($req) : $ua->simple_request($req);
$IO::Socket::SSL::VERSION = $tmp_socket_ssl_version;
$self->{_res} = $res; $self->{_res} = $res;