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:14:50 -0500 |
| commit | 2c0d0ee761551582c9cd3727d444b7408aa82db7 (patch) | |
| tree | 1a0c3f5004395e29a8d38a225ae0335c9a1a7208 | |
| parent | 2debceed2947029b7368d091be4442eccc798e4f (diff) | |
| download | postgresql-2c0d0ee761551582c9cd3727d444b7408aa82db7.tar.gz postgresql-2c0d0ee761551582c9cd3727d444b7408aa82db7.zip | |
Fix perl warning from commit 9b4eafcaf4
per gripe from Andres Freund and Tom Lane
Backpatch to all live branches.
| -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 cae3a960f66..69a8ff3d743 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -1592,7 +1592,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) { |