aboutsummaryrefslogtreecommitdiff
path: root/utils/scancpan
diff options
context:
space:
mode:
authorGravatar Francois Perrad <fperrad@gmail.com>2018-08-13 18:15:53 +0200
committerGravatar Thomas Petazzoni <thomas.petazzoni@bootlin.com>2018-08-14 15:37:14 +0200
commitcd87d05f7792647d49694087f14e0307ba5b1be6 (patch)
treec9bb60931c7e02fb23cec5c6bd6bfac9b70e0e60 /utils/scancpan
parenta96680891a7c23c31d07e5a32896f808c20e453c (diff)
downloadbuildroot-cd87d05f7792647d49694087f14e0307ba5b1be6.tar.gz
buildroot-cd87d05f7792647d49694087f14e0307ba5b1be6.tar.bz2
scancpan: warn on undefined LICENSE
Signed-off-by: Francois Perrad <francois.perrad@gadz.org> Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
Diffstat (limited to 'utils/scancpan')
-rwxr-xr-xutils/scancpan6
1 files changed, 5 insertions, 1 deletions
diff --git a/utils/scancpan b/utils/scancpan
index fa31dfdeab..8f47521692 100755
--- a/utils/scancpan
+++ b/utils/scancpan
@@ -705,6 +705,10 @@ while (my ($distname, $dist) = each %dist) {
$license =~ s|openssl|OpenSSL|;
$license =~ s|perl_5|Artistic or GPL-1.0+|;
my $license_files = join q{ }, keys %{$license_files{$distname}};
+ if ($license_files && (!$license || $license eq q{unknown})) {
+ push @info, qq{[$distname] undefined LICENSE, see $license_files};
+ $license = q{???};
+ }
say qq{write ${mkname}} unless $quiet;
open my $fh, q{>}, $mkname;
say {$fh} qq{################################################################################};
@@ -718,7 +722,7 @@ while (my ($distname, $dist) = each %dist) {
say {$fh} qq{${brname}_SITE = \$(BR2_CPAN_MIRROR)${directories}};
say {$fh} qq{${brname}_DEPENDENCIES = ${dependencies}} if $need_target{$distname} && $dependencies;
say {$fh} qq{HOST_${brname}_DEPENDENCIES = ${host_dependencies}} if $need_host{$distname} && $host_dependencies;
- say {$fh} qq{${brname}_LICENSE = ${license}} if $license && $license ne q{unknown};
+ say {$fh} qq{${brname}_LICENSE = ${license}} if $license;
say {$fh} qq{${brname}_LICENSE_FILES = ${license_files}} if $license_files;
say {$fh} qq{};
foreach (sort @{$deps_optional{$distname}}) {