From e2fb512ba546ca3e97317343b09111c2f6affafd Mon Sep 17 00:00:00 2001
From: "Zak B. Elep" <zakame@zakame.net>
Date: Fri, 21 May 2021 17:31:25 +0800
Subject: [PATCH] :lipstick: library.pl: tidy up

---
 library.pl | 83 +++++++++++++++++++++++++++---------------------------
 1 file changed, 42 insertions(+), 41 deletions(-)

diff --git a/library.pl b/library.pl
index 9b9e285..03c92b9 100755
--- a/library.pl
+++ b/library.pl
@@ -5,9 +5,10 @@ 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',
+
+  # https://github.com/docker-library/official-images/blob/master/library/debian
+  buster  => 'amd64, arm32v7, arm64v8, i386, ppc64le, s390x',
+  stretch => 'amd64, arm32v7, arm64v8, i386',
 );
 
 print <<"END_HEADER";
@@ -19,38 +20,38 @@ Architectures: $arches{buster}
 END_HEADER
 
 sub suffix {
-	my $suffix = shift;
-	return map { $_ eq 'latest' ? $suffix : $_ . '-' . $suffix } @_;
+  my $suffix = shift;
+  map { $_ eq 'latest' ? $suffix : $_ . '-' . $suffix } @_;
 }
 
 sub entry {
-	my $version = shift;
-	my $build = shift;
-	my $debian = shift;
-	my $eol = shift // 0;
+  my $version = shift;
+  my $build   = shift;
+  my $debian  = shift;
+  my $eol     = shift // 0;
 
-	my @versionAliases = ();
+  my @versionAliases = ();
 
-	my @version = split /[.]/, $version;
-	for my $i (reverse 0 .. @version-1) {
-		push @versionAliases, join '.', @version[0 .. $i];
-	}
+  my @version = split /[.]/, $version;
+  for my $i (reverse 0 .. @version - 1) {
+    push @versionAliases, join '.', @version[0 .. $i];
+  }
 
-	push @versionAliases, 'latest';
+  push @versionAliases, 'latest';
 
-	(my $buildSuffix = $build) =~ s/^main,//;
-	$buildSuffix =~ s/,/-/g;
-	my @buildAliases = ($build eq 'main' ? @versionAliases : suffix $buildSuffix, @versionAliases);
+  (my $buildSuffix = $build) =~ s/^main,//;
+  $buildSuffix =~ s/,/-/g;
+  my @buildAliases = ($build eq 'main' ? @versionAliases : suffix $buildSuffix, @versionAliases);
 
-	my @debianAliases = suffix $debian, @buildAliases;
+  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;
+  state %latest = ();
+  @aliases = grep { !defined $latest{$_} } @aliases;
+  @latest{@aliases} = (1) x @aliases;
 
-	print <<~"END_ENTRY";
+  print <<~"END_ENTRY";
 
 	Tags: @{[ join ', ', @aliases ]}@{[ defined $arches{$debian} ? "\nArchitectures: $arches{$debian}" : '' ]}
 	Directory: @{[ ($eol ? 'eol/' : '') . sprintf '%i.%03i.%03i-%s-%s', @version, $build, $debian ]}
@@ -58,26 +59,26 @@ sub entry {
 }
 
 sub release {
-	my $release = shift;
-	my $builds = shift;
-	my $eol = shift // 0;
+  my $release = shift;
+  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} }) {
-			entry $release->{version}, $build, $debian, $eol;
-		}
-	}
+  for my $build (@builds) {
+    for my $debian (reverse @{$release->{debian_release}}) {
+      entry $release->{version}, $build, $debian, $eol;
+    }
+  }
 }
 
 my $config = do {
-	open my $fh, '<', 'config.yml' or die "Couldn't open config";
-	local $/;
-	Load <$fh>;
+  open my $fh, '<', 'config.yml' or die "Couldn't open config";
+  local $/;
+  Load <$fh>;
 };
 
-release $_, $config->{builds} for (reverse @{ $config->{releases} });
+release $_, $config->{builds} for reverse @{$config->{releases}};
 
 exit unless @ARGV == 1 && $ARGV[0] eq '--eol';
 
@@ -91,9 +92,9 @@ print <<END_EOL_COMMENT;
 END_EOL_COMMENT
 
 $config = do {
-	open my $fh, '<', 'eol/config.yml' or die "Couldn't open config";
-	local $/;
-	Load <$fh>;
+  open my $fh, '<', 'eol/config.yml' or die "Couldn't open config";
+  local $/;
+  Load <$fh>;
 };
 
-release $_, $config->{builds}, 1 for (reverse @{ $config->{releases} });
+release $_, $config->{builds}, 1 for reverse @{$config->{releases}};