From b4d932bbc7a3ea37b5dc0076b4f7967b30393ecd Mon Sep 17 00:00:00 2001 From: alterego655 <824662526@qq.com> Date: Sat, 27 Dec 2025 00:44:43 +0800 Subject: [PATCH] Run perltidy on src/test/perl/PostgreSQL/Test/Cluster.pm --- src/test/perl/PostgreSQL/Test/Cluster.pm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm index 295988b8b87..f2aed528db3 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -1877,8 +1877,8 @@ sub get_free_port { foreach my $addr (qw(127.0.0.1), ($use_tcp && $PostgreSQL::Test::Utils::windows_os) - ? qw(127.0.0.2 127.0.0.3 0.0.0.0) - : ()) + ? qw(127.0.0.2 127.0.0.3 0.0.0.0) + : ()) { if (!can_bind($addr, $port)) { @@ -2235,7 +2235,7 @@ sub psql my $exc_save = $@; # we need a dummy $stderr from hereon, if we didn't collect it - if (! defined $stderr) + if (!defined $stderr) { my $errtxt = ""; $stderr = \$errtxt; @@ -3887,8 +3887,7 @@ sub advance_wal ########################################################################## -package PostgreSQL::Test::Cluster::V_11 - ; ## no critic (ProhibitMultiplePackages) +package PostgreSQL::Test::Cluster::V_11; ## no critic (ProhibitMultiplePackages) use parent -norequire, qw(PostgreSQL::Test::Cluster); @@ -3915,8 +3914,7 @@ sub init ########################################################################## -package PostgreSQL::Test::Cluster::V_10 - ; ## no critic (ProhibitMultiplePackages) +package PostgreSQL::Test::Cluster::V_10; ## no critic (ProhibitMultiplePackages) use parent -norequire, qw(PostgreSQL::Test::Cluster::V_11); -- 2.51.0