Fix perl warning from commit 9b4eafc

adunstan · adunstan · commit 2c0d0ee76155 · 2022-11-23T07:14:50.000-05:00
per gripe from Andres Freund and Tom Lane

Backpatch to all live branches.
diff --git 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)
 	{

Original file line number	Diff line number	Diff line change
`@@ -1592,7 +1592,7 @@ sub _reserve_port`
`1592`	`1592`	`# take an exclusive lock to avoid concurrent access`
`1593`	`1593`	`flock($portfile, LOCK_EX) \|\| die "locking port file $filename: $!";`
`1594`	`1594`	`# see if someone else has or had a reservation of this port`
`1595`		`- my $pid = <$portfile>;`
	`1595`	`+ my $pid = <$portfile> \|\| "0";`
`1596`	`1596`	`chomp $pid;`
`1597`	`1597`	`if ($pid +0 > 0)`
`1598`	`1598`	`{`