PostgresNode: wrap correctly around port number range end

Per note from Tom Lane

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index b18c6bf33c65f8314add9cbae9dbde3442254053..7b6ddf25de9c202ad30101fef45599314ad3ad46 100644 (file)
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -321,7 +321,8 @@ sub get_new_node
 
        while ($found == 0)
        {
-               $port++;
+               # wrap correctly around range end
+               $port = 49152 if ++$port >= 65536;
                print "# Checking for port $port\n";
                if (!TestLib::run_log([ 'pg_isready', '-p', $port ]))
                {