Преглед изворни кода

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 пре 6 година
родитељ
комит
8c3395a374
1 измењених фајлова са 1 додато и 1 уклоњено
  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'
                                ? 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{???};