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/test/kerberos | |
| 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/test/kerberos')
| -rw-r--r-- | src/test/kerberos/t/001_auth.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/test/kerberos/t/001_auth.pl b/src/test/kerberos/t/001_auth.pl index e9ceb712f5b..5c7f7543968 100644 --- a/src/test/kerberos/t/001_auth.pl +++ b/src/test/kerberos/t/001_auth.pl @@ -28,7 +28,7 @@ if ($ENV{with_gssapi} ne 'yes') { plan skip_all => 'GSSAPI/Kerberos not supported by this build'; } -elsif ($ENV{PG_TEST_EXTRA} !~ /\bkerberos\b/) +elsif (!$ENV{PG_TEST_EXTRA} || $ENV{PG_TEST_EXTRA} !~ /\bkerberos\b/) { plan skip_all => 'Potentially unsafe test GSSAPI/Kerberos not enabled in PG_TEST_EXTRA'; @@ -203,7 +203,7 @@ system_or_bail $krb5kdc, '-P', $kdc_pidfile; END { - kill 'INT', `cat $kdc_pidfile` if -f $kdc_pidfile; + kill 'INT', `cat $kdc_pidfile` if defined($kdc_pidfile) && -f $kdc_pidfile; } note "setting up PostgreSQL instance"; |