From 8710996bb7d69bd4fbbf59cd3c186a428334c187 Mon Sep 17 00:00:00 2001 From: Francois Perrad Date: Wed, 14 Jun 2017 16:15:29 +0200 Subject: [PATCH] scancpan: update with MetaCPAN API v1 The API v0 is shutdown. see https://bugs.busybox.net/show_bug.cgi?id=9951 Signed-off-by: Francois Perrad Signed-off-by: Thomas Petazzoni --- support/scripts/scancpan | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/support/scripts/scancpan b/support/scripts/scancpan index 8d44ed908e..f87cdce7af 100755 --- a/support/scripts/scancpan +++ b/support/scripts/scancpan @@ -521,7 +521,7 @@ my %deps_runtime; # name -> list of target dependencies my %deps_optional; # name -> list of optional target dependencies my %license_files; # name -> list of license files my %checksum; # author -> list of checksum -my $mcpan = MetaCPAN::API::Tiny->new(); +my $mcpan = MetaCPAN::API::Tiny->new(base_url => 'http://fastapi.metacpan.org/v1'); my $ua = HTTP::Tiny->new(); sub get_checksum { @@ -538,7 +538,7 @@ sub get_checksum { sub get_manifest { my ($author, $distname, $version) = @_; - my $url = qq{http://api.metacpan.org/source/${author}/${distname}-${version}/MANIFEST}; + my $url = qq{http://fastapi.metacpan.org/source/${author}/${distname}-${version}/MANIFEST}; my $response = $ua->get($url); return $response->{content}; } -- 2.30.2