diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2022-11-23 07:03:06 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2022-11-23 07:03:06 -0500 |
| commit | b425bf0081386a544e1faf872a75da69a971e173 (patch) | |
| tree | a4d2330867c2bc4bdd38f765eada1a76c36cc54e /src/test/perl/PostgreSQL/Test | |
| parent | 56d0ed3b756b2e3799a7bbc0ac89bc7657ca2c33 (diff) | |
| download | postgresql-b425bf0081386a544e1faf872a75da69a971e173.tar.gz postgresql-b425bf0081386a544e1faf872a75da69a971e173.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/PostgreSQL/Test')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Cluster.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm index 6101740ca0a..7411188dc87 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -1593,7 +1593,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) { |