summaryrefslogtreecommitdiff
path: root/TAO/DevGuideExamples/RTCORBA/run_test.pl
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2008-10-28 20:02:39 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2008-10-28 20:02:39 +0000
commit2372f5a1b835d0bc56b783bbddc2510af627c557 (patch)
tree87d7ea68175844c1ac5a9e9731956af04e4a2b37 /TAO/DevGuideExamples/RTCORBA/run_test.pl
parentd7b858032e45c318a66683bf7d3480758170d920 (diff)
downloadATCD-2372f5a1b835d0bc56b783bbddc2510af627c557.tar.gz
Diffstat (limited to 'TAO/DevGuideExamples/RTCORBA/run_test.pl')
-rw-r--r--TAO/DevGuideExamples/RTCORBA/run_test.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/TAO/DevGuideExamples/RTCORBA/run_test.pl b/TAO/DevGuideExamples/RTCORBA/run_test.pl
index 58d2fd6c5a3..c352dca2238 100644
--- a/TAO/DevGuideExamples/RTCORBA/run_test.pl
+++ b/TAO/DevGuideExamples/RTCORBA/run_test.pl
@@ -12,24 +12,24 @@ $ior="Messenger.ior";
unlink $ior;
# start MessengerServer
-$S = new PerlACE::Process("MessengerServer");
+$S = new PerlACE::Process("server");
$S->Spawn();
if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) {
print STDERR "ERROR: cannot find file $ior\n";
- $S->Kill();
+ $S->Kill();
exit 1;
}
# start MessengerClient
-$C = new PerlACE::Process("MessengerClient");
+$C = new PerlACE::Process("client");
if ($C->SpawnWaitKill(10) != 0) {
$S->Kill();
exit (1);
}
-# clean-up
+# clean-up
$S->Kill();
unlink $ior;