diff options
Diffstat (limited to 'bin/PerlACE/Run_Test.pm')
| -rw-r--r-- | bin/PerlACE/Run_Test.pm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm index 21e22e1f287..d326ec01db6 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 : (($^O eq "lynxos") ? 12 : ($PerlACE::VxWorks_Test ? 60 : 5)); +$wait_interval_for_process_creation = ($^O eq "nonstop_kernel") ? 10 : ($PerlACE::VxWorks_Test ? 60 : 5); # Turn on autoflush $| = 1; @@ -51,11 +51,6 @@ 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 { @@ -155,7 +150,14 @@ sub add_path { my $name = shift; my $value = shift; if (defined $ENV{$name}) { - $ENV{$name} .= ($^O eq 'MSWin32' ? ';' : ':') . $value + # $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 + } } else { $ENV{$name} = $value; |