aboutsummaryrefslogtreecommitdiff
path: root/utils/scancpan
diff options
context:
space:
mode:
authorGravatar Francois Perrad <fperrad@gmail.com>2017-09-27 10:32:50 +0200
committerGravatar Peter Korsgaard <peter@korsgaard.com>2017-09-28 22:04:48 +0200
commit5338f8635d387d7f35c69e19aee8c783733e6c7c (patch)
treee4616232abd9e6590cb70d32b71e4fc7b932fcec /utils/scancpan
parente8f61843ac262dc94a594f58d72d31784ae98c98 (diff)
downloadbuildroot-5338f8635d387d7f35c69e19aee8c783733e6c7c.tar.gz
buildroot-5338f8635d387d7f35c69e19aee8c783733e6c7c.tar.bz2
perl: bump to version 5.26.1
Signed-off-by: Francois Perrad <francois.perrad@gadz.org> Tested-by: Bernd Kuhls <bernd.kuhls@t-online.de> Signed-off-by: Peter Korsgaard <peter@korsgaard.com>
Diffstat (limited to 'utils/scancpan')
-rwxr-xr-xutils/scancpan18
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