From 59cb323053f4ed582d4e71acaeb5770603f074db Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Fri, 4 May 2018 09:46:31 -0400
Subject: [PATCH] Fix precedence problem in new Perl code.

I think this bit of commit 1f1cd9b5d didn't do quite what I meant :-(
---
 src/backend/catalog/Catalog.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/backend/catalog/Catalog.pm b/src/backend/catalog/Catalog.pm
index 2889cb9fb0..7497d9cd9f 100644
--- a/src/backend/catalog/Catalog.pm
+++ b/src/backend/catalog/Catalog.pm
@@ -356,7 +356,7 @@ sub RenameTempFile
 	if (-f $final_name
 		&& compare($temp_name, $final_name) == 0)
 	{
-		unlink $temp_name || die "unlink: $temp_name: $!";
+		unlink($temp_name) || die "unlink: $temp_name: $!";
 	}
 	else
 	{
-- 
2.40.0