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

Do not prepend default host to absolute URLs

Browse Source 
Issue: https://rt.cpan.org/Ticket/Display.html?id=119790
This commit is contained in:
Gustavo L. de M. Chaves 2017-01-10 16:46:14 -02:00
parent c70df145f0
commit 3cb20d8f8c
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 =~ /^\//;