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:11 -0500 |
| commit | 3a2807528e712a261ea3db713db4db39b7704288 (patch) | |
| tree | 0a04d1d09fa4b4f7946781eea78ecbece531aba2 /src/test/perl/PostgresNode.pm | |
| parent | ec10b6139c6d5adc00357b22ebc05fd6f5c5ad41 (diff) | |
| download | postgresql-3a2807528e712a261ea3db713db4db39b7704288.tar.gz postgresql-3a2807528e712a261ea3db713db4db39b7704288.zip | |
Fix perl warning from commit 9b4eafcaf4
per gripe from Andres Freund and Tom Lane
Backpatch to all live branches.
Diffstat (limited to 'src/test/perl/PostgresNode.pm')
| -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 6a6894e6409..6506308ff19 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1292,7 +1292,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) { |