diff options
Diffstat (limited to 'TAO/tests/ORB_Local_Config/run_tests_all.pl')
| -rwxr-xr-x | TAO/tests/ORB_Local_Config/run_tests_all.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/TAO/tests/ORB_Local_Config/run_tests_all.pl b/TAO/tests/ORB_Local_Config/run_tests_all.pl index 076bf732bd4..3440928815d 100755 --- a/TAO/tests/ORB_Local_Config/run_tests_all.pl +++ b/TAO/tests/ORB_Local_Config/run_tests_all.pl @@ -27,11 +27,12 @@ sub test($) { (my $executable, my $arguments) = @_; chdir ($executable); + my $t1; if (PerlACE::is_vxworks_test()) { - my $t1 = new PerlACE::ProcessVX ("Test", ($arguments ? $arguments : "")); + $t1 = new PerlACE::ProcessVX ("Test", ($arguments ? $arguments : "")); } else { - my $t1 = new PerlACE::Process ("Test", ($arguments ? $arguments : "")); + $t1 = new PerlACE::Process ("Test", ($arguments ? $arguments : "")); } print STDERR "\nTest $executable is running ...\n"; my $status = $t1->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation); |