summaryrefslogtreecommitdiff
path: root/TAO/utils/nslist
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/utils/nslist')
-rwxr-xr-xTAO/utils/nslist/run_test.pl4
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;
}
}