diff options
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 8eb27df796f..35505afe026 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -100,7 +100,12 @@ if (!$ENV{PGPORT}) $ENV{PGPORT} = 65432; } -$ENV{PGPORT} = int($ENV{PGPORT}) % 65536; +# Force a sane value of PGPORT +$ENV{PGPORT} = int($ENV{PGPORT}); +if ($ENV{PGPORT} < 1024 || $ENV{PGPORT} > 65535) +{ + $ENV{PGPORT} = ($ENV{PGPORT} % 16384) + 49152; +} # |