Tidy

Author: charsbar

bin/build_all.pl

@@ -31,7 +31,7 @@
 );
 my %aliases_rev;
 
-my %multi_platform = map {$_ => 1} qw( noble plucky questing );
+my %multi_platform = map { $_ => 1 } qw( noble plucky questing );
 
 while (my ($alias, $name) = each %aliases) {
     $aliases_rev{$name} ||= [];
@@ -51,7 +51,7 @@
         $tags .= " --tag movabletype/test:$t";
     }
     my $dockerfile = path("$name/Dockerfile")->slurp;
-    my ($from)     = $dockerfile =~ /^FROM (\S+)/;
+    my ($from) = $dockerfile =~ /^FROM (\S+)/;
     system("docker pull $from") if $no_cache;
     if ($builder && $multi_platform{$name}) {
         system("docker buildx build --builder $builder --platform linux/amd64,linux/arm64 $name $tags --output=type=image" . ($no_cache ? " --no-cache" : "") . ($push ? " --push" : "") . " 2>&1 | tee log/build_$name.log");

bin/test_readme.pl

@@ -26,6 +26,7 @@
     $line             =~ s/(?:MariaDB|Postgres) //;
     my ($image, $base, @rest) = split '\|', $line;
     next if $image =~ /(?:openldap|chromedriver)/;
+
     if ($image =~ /(?:addons|chromiumdriver|playwright)/) {
         my @extra = split /,\s*/, $rest[0];
         $mapping{$image} = { map { split / /, $_ } @extra };

bin/test_workflows.pl

@@ -5,8 +5,8 @@
 use File::Path;
 
 my $local = YAML::LoadFile('./.github/workflows/mirror.yml');
-my %tags  = map {$_ => 1} @{$local->{jobs}{'pull-and-push'}{strategy}{matrix}{tag} // []};
-$tags{centos6} = 1;  # special case
+my %tags  = map { $_ => 1 } @{ $local->{jobs}{'pull-and-push'}{strategy}{matrix}{tag} // [] };
+$tags{centos6} = 1;    # special case
 
 my @branches = qw(develop support-8.8.x support-8.4.x support-8.0.x);
 my @repos    = qw(movabletype movabletype-addons movabletype-plugins);
@@ -23,7 +23,7 @@
             next;
         }
         my $workflow = YAML::LoadFile($yml);
-        for my $key (keys %{$workflow->{jobs}}) {
+        for my $key (keys %{ $workflow->{jobs} }) {
             if (my $image = $workflow->{jobs}{$key}{env}{TEST_IMAGE_NAME}) {
                 ok $tags{$image}, "$image is used in $repo/$branch (by env)";
                 $used{$image}{$branch} = 1;