aboutsummaryrefslogtreecommitdiff
path: root/utils/scancpan
diff options
context:
space:
mode:
Diffstat (limited to 'utils/scancpan')
-rwxr-xr-xutils/scancpan6
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}};
}
}