keyboard/altgr/index: calculate maximum inventory without names
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 21 May 2024 19:31:51 +0000 (21:31 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 21 May 2024 19:50:13 +0000 (21:50 +0200)
Code cleanup.

keyboard/altgr/index.inc.plp

index 5491df8767567749cd506183615eff003fb35fbf..c6accc7669958fa79fd273e60ec06dae8414a54c 100644 (file)
@@ -139,7 +139,9 @@ if (@sample) {
        print "<th>$_" for @sample;
        say '</tr></thead>';
 }
-my $most = max(map { sum values %{ $_->{inventory}{''} } } %{$idx}{@incs});
+my $most = max(
+       map { sum values %{$_} } map { $_->{inventory}{''} } @{$idx}{@incs}
+);
 for my $inc (@incs) {
        my $table = $idx->{$inc};
        print @sample ? '<tr><th>' : '<figure>';