diff options
Diffstat (limited to 'TAO/utils/nslist')
-rwxr-xr-x | TAO/utils/nslist/run_test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TAO/utils/nslist/run_test.pl b/TAO/utils/nslist/run_test.pl index c04a9a4cf3f..6d9b1032d1f 100755 --- a/TAO/utils/nslist/run_test.pl +++ b/TAO/utils/nslist/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -# This is a Perl script that runs some Naming Service tests. +# This is a Perl script that runs some Naming Service tests. # It runs all the tests that will run with min CORBA. # It starts all the servers and clients as necessary. @@ -37,7 +37,7 @@ sub name_server if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) { print STDERR "ERROR: cannot find IOR file <$iorfile>\n"; - $NS->Kill (); + $NS->Kill (); exit 1; } } |