Fix precedence problem in new Perl code.

I think this bit of commit 1f1cd9b5d didn't do quite what I meant :-(

diff --git a/src/backend/catalog/Catalog.pm b/src/backend/catalog/Catalog.pm
index 2889cb9fb060af7109820777367aa2f432dcb081..7497d9cd9fbcc874f074eb9229c31f2e5878966a 100644 (file)
--- 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
    {