diff options
Diffstat (limited to 'bin/PerlACE/Run_Test.pm')
-rw-r--r-- | bin/PerlACE/Run_Test.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm index d326ec01db6..21e22e1f287 100644 --- a/bin/PerlACE/Run_Test.pm +++ b/bin/PerlACE/Run_Test.pm @@ -21,7 +21,7 @@ if (!defined $svcconf_ext) { } # Default timeout. NSCORBA needs more time for process start up. -$wait_interval_for_process_creation = ($^O eq "nonstop_kernel") ? 10 : ($PerlACE::VxWorks_Test ? 60 : 5); +$wait_interval_for_process_creation = ($^O eq "nonstop_kernel") ? 10 : (($^O eq "lynxos") ? 12 : ($PerlACE::VxWorks_Test ? 60 : 5)); # Turn on autoflush $| = 1; @@ -51,6 +51,11 @@ sub VX_HostFile($) return $ENV{"HOST_ROOT"}."/".$file; } +# Returns a random port within the range of 10002 - 32767 +sub random_port { + return (int(rand($$)) % 22766) + 10002; +} + # Returns a unique id, uid for unix, last digit of IP for NT sub uniqueid { @@ -150,14 +155,7 @@ sub add_path { my $name = shift; my $value = shift; if (defined $ENV{$name}) { - # $Config{'path_sep'} gives '/' or '\' we want ':' or ';' - #$ENV{$name} .= $Config{'path_sep'} . $value - if ($^O eq "MSWin32") { - $ENV{$name} .= ';' . $value - } - else { - $ENV{$name} .= ';' . $value - } + $ENV{$name} .= ($^O eq 'MSWin32' ? ';' : ':') . $value } else { $ENV{$name} = $value; |