database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-11-03 09:13:20 +03:00
Code Activity

Fix perl warning from commit 9b4eafcaf4

Browse Source 
per gripe from Andres Freund and Tom Lane

Backpatch to all live branches.
This commit is contained in:
Andrew Dunstan
2022-11-23 07:17:26 -05:00
parent ec10b6139c
commit 3a2807528e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/test/perl/PostgresNode.pm
View File

@@ -1292,7 +1292,7 @@ sub _reserve_port
# take an exclusive lock to avoid concurrent access # take an exclusive lock to avoid concurrent access
flock($portfile, LOCK_EX) || die "locking port file $filename: $!"; flock($portfile, LOCK_EX) || die "locking port file $filename: $!";
# see if someone else has or had a reservation of this port # see if someone else has or had a reservation of this port
my $pid = <$portfile>; my $pid = <$portfile> || "0";
chomp $pid; chomp $pid;
if ($pid +0 > 0) if ($pid +0 > 0)
{ {