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

17
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 {
@ -32,7 +33,7 @@ sub entry {
my @versionAliases = ();
my @version = split /[.]/, $version;
for my $i (reverse 0 .. @version-1) {
for my $i (reverse 0 .. @version - 1) {
push @versionAliases, join '.', @version[0 .. $i];
}
@ -44,11 +45,11 @@ sub entry {
my @debianAliases = suffix $debian, @buildAliases;
my @aliases = ( ($eol ? () : @buildAliases), @debianAliases );
my @aliases = (($eol ? () : @buildAliases), @debianAliases);
state %latest = ();
@aliases = grep { !defined $latest{$_} } @aliases;
@latest{ @aliases } = ( 1 ) x @aliases;
@latest{@aliases} = (1) x @aliases;
print <<~"END_ENTRY";
@ -62,10 +63,10 @@ sub release {
my $builds = shift;
my $eol = shift // 0;
my @builds = (@$builds, map { "$_,threaded" } @$builds);
my @builds = (@$builds, map {"$_,threaded"} @$builds);
for my $build (@builds) {
for my $debian (reverse @{ $release->{debian_release} }) {
for my $debian (reverse @{$release->{debian_release}}) {
entry $release->{version}, $build, $debian, $eol;
}
}
@ -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}};