diff options
Diffstat (limited to 'utils/scancpan')
-rwxr-xr-x | utils/scancpan | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/utils/scancpan b/utils/scancpan index 20bd4c6933..6d1cdc57aa 100755 --- a/utils/scancpan +++ b/utils/scancpan @@ -484,9 +484,9 @@ use HTTP::Tiny; use Safe; use MetaCPAN::API::Tiny; -# Below, 5.024 should be aligned with the version of perl actually +# Below, 5.026 should be aligned with the version of perl actually # bundled in Buildroot: -die <<"MSG" if $] < 5.024; +die <<"MSG" if $] < 5.026; This script needs a host perl with the same major version as Buildroot target perl. Your current host perl is: @@ -494,7 +494,7 @@ Your current host perl is: version $] You may install a local one by running: - perlbrew install perl-5.24.0 + perlbrew install perl-5.26.0 MSG my ($help, $man, $quiet, $force, $recommend, $test, $host); @@ -527,8 +527,8 @@ my $ua = HTTP::Tiny->new(); sub get_checksum { my ($url) = @_; - my($path) = $url =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|; - my($basename, $dirname) = fileparse( $path ); + my ($path) = $url =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|; + my ($basename, $dirname) = fileparse( $path ); unless ($checksum{$dirname}) { my $url = $mirror . $dirname . q{CHECKSUMS}; my $response = $ua->get($url); @@ -673,11 +673,11 @@ while (my ($distname, $dist) = each %dist) { } if ($force || !-f $mkname) { my $version = $dist->{version}; - my($path) = $dist->{download_url} =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|; + my ($path) = $dist->{download_url} =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|; # this URL contains only the scheme, auth and path parts (but no query and fragment parts) # the scheme is not used, because the job is done by the BR download infrastructure # the auth part is not used, because we use $(BR2_CPAN_MIRROR) - my($filename, $directories, $suffix) = fileparse( $path, q{tar.gz}, q{tgz} ); + my ($filename, $directories, $suffix) = fileparse( $path, q{tar.gz}, q{tgz} ); $directories =~ s|/$||; my $dependencies = join q{ }, map( { q{host-} . fsname( $_ ); } sort @{$deps_build{$distname}} ), map( { fsname( $_ ); } sort @{$deps_runtime{$distname}} ); @@ -723,7 +723,7 @@ while (my ($distname, $dist) = each %dist) { close $fh; } if ($force || !-f $hashname) { - my($checksum, $filename) = get_checksum($dist->{download_url}); + my ($checksum, $filename) = get_checksum($dist->{download_url}); my $md5 = $checksum->{md5}; my $sha256 = $checksum->{sha256}; say qq{write ${hashname}} unless $quiet; @@ -831,7 +831,7 @@ in order to work with the right CoreList data. =head1 LICENSE -Copyright (C) 2013-2016 by Francois Perrad <francois.perrad@gadz.org> +Copyright (C) 2013-2017 by Francois Perrad <francois.perrad@gadz.org> This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by |