Fix perl warning from commit 9b4eafcaf4

per gripe from Andres Freund and Tom Lane

Backpatch to all live branches.

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 506d39a3c33eb2605c7af9a6126b13b51f43dcc0..ef5d3bb9e10f53cd626e9b86d8600a1d47d52629 100644 (file)
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -1243,7 +1243,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)
        {