Silence perlcritic warnings in new libpq tests

hlinnaka · hlinnaka · commit d60ab76f6309 · 2024-04-08T04:32:26.000+03:00
Per buildfarm member 'koel'.
diff --git a/src/test/libpq_encryption/t/001_negotiate_encryption.pl b/src/test/libpq_encryption/t/001_negotiate_encryption.pl
@@ -135,7 +135,8 @@
 	  || 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 @@ BEGIN
 
 # 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
