Fix fetch URL

metacpan · Oct 16, 2017 · d00187f · d00187f
1 parent d71e906
commit d00187f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/MetaCPAN/Client/Request.pm b/lib/MetaCPAN/Client/Request.pm
@@ -79,6 +79,7 @@ sub fetch {
     my $self    = shift;
     my $url     = shift or croak 'fetch must be called with a URL parameter';
     my $params  = shift || {};
+    $url =~ s{^/}{};
     my $req_url = sprintf '%s/%s', $self->base_url, $url;
     my $ua      = $self->ua;