mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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 6e639267a5
commit f4b777e77d
No known key found for this signature in database
GPG Key ID: 99FA7FCB59FC3B81
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1320,7 +1320,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)
{ {