Explorar o código

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>
Francois Perrad %!s(int64=6) %!d(string=hai) anos
pai
achega
8c3395a374
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      utils/scancpan

+ 1 - 1
utils/scancpan

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