diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index 506d39a3c3..ef5d3bb9e1 100644 --- 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) {