diff options
| author | Peter Eisentraut | 2023-12-29 22:54:40 +0000 |
|---|---|---|
| committer | Peter Eisentraut | 2023-12-29 22:54:40 +0000 |
| commit | 9d49837d7144e27ad8ea8918acb28f9872cb1585 (patch) | |
| tree | a995b9b8b789016cb87bf96798be6c6327aab2cd /src/interfaces | |
| parent | 2c321ceaa904eb2722050abd35bf4eaea434c8b5 (diff) | |
Follow-up fixes for "Make all Perl warnings fatal"
Mostly, we need to check whether $ENV{PG_TEST_EXTRA} is set before
doing regular expression matches against it.
Diffstat (limited to 'src/interfaces')
| -rw-r--r-- | src/interfaces/libpq/t/004_load_balance_dns.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interfaces/libpq/t/004_load_balance_dns.pl b/src/interfaces/libpq/t/004_load_balance_dns.pl index 81cf628ac7c..49f1f5f331d 100644 --- a/src/interfaces/libpq/t/004_load_balance_dns.pl +++ b/src/interfaces/libpq/t/004_load_balance_dns.pl @@ -6,7 +6,7 @@ use PostgreSQL::Test::Utils; use PostgreSQL::Test::Cluster; use Test::More; -if ($ENV{PG_TEST_EXTRA} !~ /\bload_balance\b/) +if (!$ENV{PG_TEST_EXTRA} || $ENV{PG_TEST_EXTRA} !~ /\bload_balance\b/) { plan skip_all => 'Potentially unsafe test load_balance not enabled in PG_TEST_EXTRA'; |