diff options
author | totten_s <totten_s@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2004-09-11 17:43:31 +0000 |
---|---|---|
committer | totten_s <totten_s@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2004-09-11 17:43:31 +0000 |
commit | d5e7f518820c3d3393c438500fa5aebfcbe2e212 (patch) | |
tree | cc86c6d6e66d6ede307b35f1f3a526207bf698fc /TAO/utils/nslist | |
parent | 97090b4ad0b7e96f3cd88961c9f7b7ee023fb517 (diff) | |
download | ATCD-d5e7f518820c3d3393c438500fa5aebfcbe2e212.tar.gz |
ChangeLogTag: Sat Sep 11 12:41:22 2004 Steve Totten <totten_s@ociweb.com>
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; } } |