diff options
-rwxr-xr-x | utils/scancpan | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/scancpan b/utils/scancpan index f7b707676d..64599f4305 100755 --- a/utils/scancpan +++ b/utils/scancpan @@ -767,10 +767,12 @@ while (my ($distname, $dist) = each %dist) { say {$fh} qq{# retrieved by scancpan from ${mirror}/}; say {$fh} qq{md5 ${md5} ${filename}}; say {$fh} qq{sha256 ${sha256} ${filename}}; - if (scalar keys %{$license_files{$distname}}) { + my %license_files = %{$license_files{$distname}}; + if (scalar keys %license_files) { say {$fh} q{}; say {$fh} qq{# computed by scancpan}; - while (my ($license, $digest) = each %{$license_files{$distname}}) { + foreach my $license (sort keys %license_files) { + my $digest = $license_files{$license}; say {$fh} qq{sha256 ${digest} ${license}}; } } |