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

Merge pull request #1 from gnustavo/rt-119790

Browse Source 
Do not prepend default host to absolute URLs
This commit is contained in:
Kevin L. Kane 2017-01-10 15:59:32 -05:00 committed by GitHub
commit 182f91957d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/REST/Client.pm
View File

@ -102,8 +102,8 @@ The config flags are:
=item host
A default host that will be prepended to all requests. Allows you to just
specify the path when making requests.
A default host that will be prepended to all requests using relative URLs.
Allows you to just specify the path when making requests.
The default is undef - you must include the host in your requests.
@ -476,6 +476,9 @@ sub _prepareURL {
my $self = shift;
my $url = shift;
# Do not prepend default host to absolute URLs.
return $url if $url =~ /^https?:/;
my $host = $self->getHost;
if($host){
$url = '/'.$url unless $url =~ /^\//;