From d60ab76f630921dc4deb958fb7892ef6b0e4a7ee Mon Sep 17 00:00:00 2001
From: Heikki Linnakangas <heikki.linnakangas@iki.fi>
Date: Mon, 8 Apr 2024 04:32:26 +0300
Subject: [PATCH] Silence perlcritic warnings in new libpq tests

Per buildfarm member 'koel'.
---
 src/test/libpq_encryption/t/001_negotiate_encryption.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/test/libpq_encryption/t/001_negotiate_encryption.pl b/src/test/libpq_encryption/t/001_negotiate_encryption.pl
index 08aa662fe6..e18e9ad4ad 100644
--- a/src/test/libpq_encryption/t/001_negotiate_encryption.pl
+++ b/src/test/libpq_encryption/t/001_negotiate_encryption.pl
@@ -135,7 +135,8 @@ if ($ssl_supported != 0)
 	  || die "copying server.crt: $!";
 	copy "$certdir/server-cn-only.key", "$pgdata/server.key"
 	  || die "copying server.key: $!";
-	chmod(0600, "$pgdata/server.key");
+	chmod(0600, "$pgdata/server.key")
+	  or die "failed to change permissions on server keys: $!";
 
 	# Start with SSL disabled.
 	$node->append_conf('postgresql.conf', "ssl = off\n");
@@ -181,7 +182,7 @@ $$;
 
 # Only accept SSL connections from $servercidr. Our tests don't depend on this
 # but seems best to keep it as narrow as possible for security reasons.
-open my $hba, '>', "$pgdata/pg_hba.conf";
+open my $hba, '>', "$pgdata/pg_hba.conf" or die $!;
 print $hba qq{
 # TYPE        DATABASE        USER            ADDRESS                 METHOD             OPTIONS
 local         postgres        localuser                               trust