diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2022-11-23 07:17:26 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2022-11-23 07:18:05 -0500 |
| commit | f4b777e77dbc46b657bd3ea331ba9f14fe4d34c9 (patch) | |
| tree | 55e0a778512c27c3e156104cbaf66c7196e7fc96 /src | |
| parent | 6e639267a5346c169a77b4ec3b14de8da2ddce8c (diff) | |
| download | postgresql-f4b777e77dbc46b657bd3ea331ba9f14fe4d34c9.tar.gz postgresql-f4b777e77dbc46b657bd3ea331ba9f14fe4d34c9.zip | |
Fix perl warning from commit 9b4eafcaf4
per gripe from Andres Freund and Tom Lane
Backpatch to all live branches.
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index e457f84fd02..b7e4dbd0e8e 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1320,7 +1320,7 @@ sub _reserve_port # take an exclusive lock to avoid concurrent access flock($portfile, LOCK_EX) || die "locking port file $filename: $!"; # see if someone else has or had a reservation of this port - my $pid = <$portfile>; + my $pid = <$portfile> || "0"; chomp $pid; if ($pid +0 > 0) { |