scancpan: sort license files

so, the output is reproductible

Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
This commit is contained in:
Francois Perrad 2018-10-10 08:46:11 +02:00 committed by Thomas Petazzoni
parent 8966be9d21
commit 8c3395a374

View file

@ -724,7 +724,7 @@ while (my ($distname, $dist) = each %dist) {
my $license = brlicense( ref $dist->{license} eq 'ARRAY'
? join q{ or }, @{$dist->{license}}
: $dist->{license} );
my $license_files = join q{ }, keys %{$license_files{$distname}};
my $license_files = join q{ }, sort keys %{$license_files{$distname}};
if ($license_files && (!$license || $license eq q{unknown})) {
push @info, qq{[$distname] undefined LICENSE, see $license_files};
$license = q{???};