simcop2387/docker-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 2 Wiki Activity

💄 library.pl: tidy up

Browse source
This commit is contained in:
Zak B. Elep 2021-05-21 17:31:25 +08:00
parent f36481da3b
commit e2fb512ba5
1 changed files with 42 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
library.pl
View file

@ -5,6 +5,7 @@ use warnings;
use YAML::XS;
my %arches = (
# https://github.com/docker-library/official-images/blob/master/library/debian
buster => 'amd64, arm32v7, arm64v8, i386, ppc64le, s390x',
stretch => 'amd64, arm32v7, arm64v8, i386',
@ -20,7 +21,7 @@ END_HEADER
sub suffix {
my $suffix = shift;
return map { $_ eq 'latest' ? $suffix : $_ . '-' . $suffix } @_;
map { $_ eq 'latest' ? $suffix : $_ . '-' . $suffix } @_;
}
sub entry {
@ -77,7 +78,7 @@ my $config = do {
Load <$fh>;
};
release $_, $config->{builds} for (reverse @{ $config->{releases} });
release $_, $config->{builds} for reverse @{$config->{releases}};
exit unless @ARGV == 1 && $ARGV[0] eq '--eol';
@ -96,4 +97,4 @@ $config = do {
Load <$fh>;
};
release $_, $config->{builds}, 1 for (reverse @{ $config->{releases} });
release $_, $config->{builds}, 1 for reverse @{$config->{releases}};