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:17:26 -0500 |
| commit | c93254424f288557eeef13343be8f72536cb9ffe (patch) | |
| tree | 48e077d4e911550f59e69d978b1021dc827bb62d /src | |
| parent | bd06fe4dee6321a3eabc1832f1faa736350d5d2c (diff) | |
| download | postgresql-c93254424f288557eeef13343be8f72536cb9ffe.tar.gz postgresql-c93254424f288557eeef13343be8f72536cb9ffe.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 d2f44c4ede0..cce3f621e71 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -1519,7 +1519,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) { |