From 9d49837d7144e27ad8ea8918acb28f9872cb1585 Mon Sep 17 00:00:00 2001 From: Peter Eisentraut Date: Fri, 29 Dec 2023 23:54:40 +0100 Subject: 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. --- src/interfaces/libpq/t/004_load_balance_dns.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interfaces') 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'; -- cgit v1.2.3