From bdd31e4d7374fb4f1cbb745021e90dd9f2e8e6d2 Mon Sep 17 00:00:00 2001 From: Johnny Willemsen Date: Fri, 17 Sep 2010 08:35:56 +0000 Subject: Removed trailing whitespaces --- TAO/orbsvcs/examples/CosEC/TypedSimple/Country.idl | 2 +- TAO/orbsvcs/examples/CosEC/TypedSimple/run_test.pl | 6 +++--- TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl | 6 +++--- TAO/orbsvcs/examples/LoadBalancing/Test.idl | 2 +- TAO/orbsvcs/examples/LoadBalancing/run_test.pl | 12 ++++++------ TAO/orbsvcs/examples/Log/Basic/run_test.pl | 12 ++++++------ TAO/orbsvcs/examples/Log/Event/run_test.pl | 14 +++++++------- TAO/orbsvcs/examples/Log/Notify/run_test.pl | 14 +++++++------- TAO/orbsvcs/examples/Log/RTEvent/run_test.pl | 14 +++++++------- TAO/orbsvcs/examples/Notify/Filter/run_test.pl | 6 +++--- TAO/orbsvcs/examples/Notify/Lanes/run_test.pl | 2 +- TAO/orbsvcs/examples/Notify/Subscribe/run_test.pl | 4 ++-- TAO/orbsvcs/examples/Notify/ThreadPool/run_test.pl | 2 +- TAO/orbsvcs/examples/RtEC/IIOPGateway/consumerec_crash.pl | 12 ++++++------ TAO/orbsvcs/examples/RtEC/IIOPGateway/run_test.pl | 12 ++++++------ 15 files changed, 60 insertions(+), 60 deletions(-) (limited to 'TAO/orbsvcs/examples') diff --git a/TAO/orbsvcs/examples/CosEC/TypedSimple/Country.idl b/TAO/orbsvcs/examples/CosEC/TypedSimple/Country.idl index 00424bfa608..e4895d84c90 100644 --- a/TAO/orbsvcs/examples/CosEC/TypedSimple/Country.idl +++ b/TAO/orbsvcs/examples/CosEC/TypedSimple/Country.idl @@ -7,7 +7,7 @@ #include "orbsvcs/CosTypedEventComm.idl" -interface Country : ::CosTypedEventComm::TypedPushConsumer +interface Country : ::CosTypedEventComm::TypedPushConsumer { void update_population (in string country, in long population); diff --git a/TAO/orbsvcs/examples/CosEC/TypedSimple/run_test.pl b/TAO/orbsvcs/examples/CosEC/TypedSimple/run_test.pl index 3fe92494b75..021d13e345b 100755 --- a/TAO/orbsvcs/examples/CosEC/TypedSimple/run_test.pl +++ b/TAO/orbsvcs/examples/CosEC/TypedSimple/run_test.pl @@ -52,9 +52,9 @@ $ces->DeleteFile ($cesiorfile); $con->DeleteFile ($coniorfile); -$IFR = $ifr->CreateProcess ($ENV{"TAO_ROOT"}."/orbsvcs/IFR_Service/IFR_Service", +$IFR = $ifr->CreateProcess ($ENV{"TAO_ROOT"}."/orbsvcs/IFR_Service/IFR_Service", " -o $ifr_ifriorfile"); -$TI = $ti->CreateProcess ($ENV{"ACE_ROOT"}."/bin/tao_ifr", +$TI = $ti->CreateProcess ($ENV{"ACE_ROOT"}."/bin/tao_ifr", " -ORBInitRef InterfaceRepository=file://$ti_ifriorfile ". "-I".$ENV{"TAO_ROOT"}."/orbsvcs $ti_idl"); $NS = $ns->CreateProcess ($ENV{"TAO_ROOT"}."/orbsvcs/Naming_Service/Naming_Service", @@ -64,7 +64,7 @@ $CES = $ces->CreateProcess ($ENV{"TAO_ROOT"}."/orbsvcs/CosEvent_Service/CosEvent "-ORBInitRef InterfaceRepository=file://$ces_ifriorfile ". "-ORBInitRef NameService=file://$ces_nsiorfile "); $CON = $con->CreateProcess ("Consumer", - "-o $con_coniorfile ". + "-o $con_coniorfile ". "-ORBInitRef NameService=file://$con_nsiorfile "); $SUP = $sup->CreateProcess ("Supplier", "-ORBInitRef NameService=file://$sup_nsiorfile "); diff --git a/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl b/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl index a9285c15e19..52eca0765a0 100755 --- a/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl +++ b/TAO/orbsvcs/examples/ImR/Combined_Service/run_test.pl @@ -92,8 +92,8 @@ sub cleanup if (m/ImR Activator: Successfully started/) { chomp $_; my @words = split (/=/, $_); - push(@pids, $words[1]); - ++ $i; + push(@pids, $words[1]); + ++ $i; } } close (TEST_OUTPUT); @@ -183,7 +183,7 @@ sub do_test print "ERROR : Shutting down test server.\n"; return $ret; } - + # Both TestObject1 and TestObject2 should now show up as "not running" $IMRUTIL->Arguments ("-ORBLogFile $output_files[$id_imru_log] $imr_initref list -v"); $ret = $IMRUTIL->SpawnWaitKill ($test->ProcessStartWaitInterval()); diff --git a/TAO/orbsvcs/examples/LoadBalancing/Test.idl b/TAO/orbsvcs/examples/LoadBalancing/Test.idl index c9f270a36a3..ea0cb943d44 100644 --- a/TAO/orbsvcs/examples/LoadBalancing/Test.idl +++ b/TAO/orbsvcs/examples/LoadBalancing/Test.idl @@ -22,7 +22,7 @@ module Test raises (Invalid_Stock_Symbol); oneway void shutdown (); - + }; interface Stock diff --git a/TAO/orbsvcs/examples/LoadBalancing/run_test.pl b/TAO/orbsvcs/examples/LoadBalancing/run_test.pl index ae728b8f090..8ad2ff3a670 100755 --- a/TAO/orbsvcs/examples/LoadBalancing/run_test.pl +++ b/TAO/orbsvcs/examples/LoadBalancing/run_test.pl @@ -53,29 +53,29 @@ $cl->DeleteFile ($srviorfile); $sr->DeleteFile ($srviorfile); $cr->DeleteFile ($srviorfile); -$LM = $lm->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/LoadBalancer/LoadManager", +$LM = $lm->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/LoadBalancer/LoadManager", " -o $lm_lmiorfile"); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$SV = $sv->CreateProcess ("server", +$SV = $sv->CreateProcess ("server", "-o $sv_srviorfile ". " -ORBInitRef LoadManager=file://$sv_lmiorfile ". " -n 1 ". "-ORBInitRef NameService=file://$sv_nsiorfile ". " -s LeastLoaded ". " -r 9000 -c 10300 -d 0.1 "); -$SR = $sr->CreateProcess ("server", +$SR = $sr->CreateProcess ("server", "-o $sr_srviorfile ". "-ORBInitRef LoadManager=file://$sr_lmiorfile ". " -n 2 ". "-ORBInitRef NameService=file://sr_nsiorfile ". " -s LeastLoaded ". "-r 9000 -c 10300 -d 0.1 "); -$CL = $cl->CreateProcess ("client", +$CL = $cl->CreateProcess ("client", "-k file://$cl_srviorfile ". " -i 5 -n 1 ". "-ORBInitRef NameService=file://cl_nsiorfile "); -$CR = $cr->CreateProcess ("client", +$CR = $cr->CreateProcess ("client", "-k file://$cr_srviorfile ". "-i 5 -n 2 ". "-ORBInitRef NameService=file://cr_nsiorfile "); diff --git a/TAO/orbsvcs/examples/Log/Basic/run_test.pl b/TAO/orbsvcs/examples/Log/Basic/run_test.pl index 7b49ee1b3d6..aec7369794e 100755 --- a/TAO/orbsvcs/examples/Log/Basic/run_test.pl +++ b/TAO/orbsvcs/examples/Log/Basic/run_test.pl @@ -1,7 +1,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' - if 0; - + if 0; + # $Id$ # -*- perl -*- @@ -31,11 +31,11 @@ $ls->DeleteFile ($nsiorfile); $cli->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Basic_Logging_Service/Basic_Logging_Service", +$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Basic_Logging_Service/Basic_Logging_Service", " -ORBInitRef NameService=file://$ls_nsiorfile"); -$CLI = $cli->CreateProcess ("client", +$CLI = $cli->CreateProcess ("client", "-ORBInitRef NameService=file://$cli_nsiorfile"); print STDERR "Starting Naming Service\n"; @@ -80,7 +80,7 @@ if ($LS_status != 0) { exit 1; } -# Give time for logging service to initialize and install its object +# Give time for logging service to initialize and install its object # reference in the nameing service. sleep (5); diff --git a/TAO/orbsvcs/examples/Log/Event/run_test.pl b/TAO/orbsvcs/examples/Log/Event/run_test.pl index ccc55677401..ac163fe6edd 100755 --- a/TAO/orbsvcs/examples/Log/Event/run_test.pl +++ b/TAO/orbsvcs/examples/Log/Event/run_test.pl @@ -1,7 +1,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' - if 0; - + if 0; + # $Id$ # -*- perl -*- @@ -33,13 +33,13 @@ $ls->DeleteFile ($nsiorfile); $con->DeleteFile ($nsiorfile); $sup->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Event_Logging_Service/Event_Logging_Service", +$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Event_Logging_Service/Event_Logging_Service", " -ORBInitRef NameService=file://$ls_nsiorfile"); -$CON = $con->CreateProcess ("Event_Consumer", +$CON = $con->CreateProcess ("Event_Consumer", "-ORBInitRef NameService=file://$con_nsiorfile"); -$SUP = $sup->CreateProcess ("Event_Supplier", +$SUP = $sup->CreateProcess ("Event_Supplier", "-ORBInitRef NameService=file://$sup_nsiorfile"); print STDERR "Starting Naming Service\n"; @@ -88,7 +88,7 @@ if ($LS_status != 0) { exit 1; } -# Give time for logging service to initialize and install its object +# Give time for logging service to initialize and install its object # reference in the naming service. sleep (5); diff --git a/TAO/orbsvcs/examples/Log/Notify/run_test.pl b/TAO/orbsvcs/examples/Log/Notify/run_test.pl index 693467fbb40..5141e25fdc1 100755 --- a/TAO/orbsvcs/examples/Log/Notify/run_test.pl +++ b/TAO/orbsvcs/examples/Log/Notify/run_test.pl @@ -1,7 +1,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' - if 0; - + if 0; + # $Id$ # -*- perl -*- @@ -33,13 +33,13 @@ $ls->DeleteFile ($nsiorfile); $con->DeleteFile ($nsiorfile); $sup->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Notify_Logging_Service/Notify_Logging_Service", +$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/Notify_Logging_Service/Notify_Logging_Service", " -ORBInitRef NameService=file://$ls_nsiorfile"); -$CON = $con->CreateProcess ("Notify_Consumer", +$CON = $con->CreateProcess ("Notify_Consumer", "-ORBInitRef NameService=file://$con_nsiorfile"); -$SUP = $sup->CreateProcess ("Notify_Supplier", +$SUP = $sup->CreateProcess ("Notify_Supplier", "-ORBInitRef NameService=file://$sup_nsiorfile"); print STDERR "Starting Naming Service\n"; @@ -88,7 +88,7 @@ if ($LS_status != 0) { exit 1; } -# Give time for logging service to initialize and install its object +# Give time for logging service to initialize and install its object # reference in the naming service. sleep (5); diff --git a/TAO/orbsvcs/examples/Log/RTEvent/run_test.pl b/TAO/orbsvcs/examples/Log/RTEvent/run_test.pl index 10e1252164c..2ae7d1b6b06 100755 --- a/TAO/orbsvcs/examples/Log/RTEvent/run_test.pl +++ b/TAO/orbsvcs/examples/Log/RTEvent/run_test.pl @@ -1,7 +1,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' - if 0; - + if 0; + # $Id$ # -*- perl -*- @@ -33,13 +33,13 @@ $ls->DeleteFile ($nsiorfile); $con->DeleteFile ($nsiorfile); $sup->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/RTEvent_Logging_Service/RTEvent_Logging_Service", +$LS = $ls->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Logging_Service/RTEvent_Logging_Service/RTEvent_Logging_Service", " -ORBInitRef NameService=file://$ls_nsiorfile"); -$CON = $con->CreateProcess ("RTEvent_Consumer", +$CON = $con->CreateProcess ("RTEvent_Consumer", "-ORBInitRef NameService=file://$con_nsiorfile"); -$SUP = $sup->CreateProcess ("RTEvent_Supplier", +$SUP = $sup->CreateProcess ("RTEvent_Supplier", "-ORBInitRef NameService=file://$sup_nsiorfile"); print STDERR "Starting Naming Service\n"; @@ -88,7 +88,7 @@ if ($LS_status != 0) { exit 1; } -# Give time for logging service to initialize and install its object +# Give time for logging service to initialize and install its object # reference in the naming service. sleep (5); diff --git a/TAO/orbsvcs/examples/Notify/Filter/run_test.pl b/TAO/orbsvcs/examples/Notify/Filter/run_test.pl index 36f7c0ae45d..65c729bd492 100755 --- a/TAO/orbsvcs/examples/Notify/Filter/run_test.pl +++ b/TAO/orbsvcs/examples/Notify/Filter/run_test.pl @@ -35,14 +35,14 @@ $nfs->DeleteFile ($nsiorfile); $flt->DeleteFile ($nsiorfile); $nfs->DeleteFile ($nfsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$NFS = $nfs->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Notify_Service/Notify_Service", +$NFS = $nfs->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Notify_Service/Notify_Service", " -o $ns_nsiorfile"); $Notify_Args = "-ORBInitRef NameService=file://$nfs_nsiorfile -IORoutput $nfs_nfsiorfile "; -$FLT = $flt->CreateProcess ("Filter", +$FLT = $flt->CreateProcess ("Filter", " -o $ns_nsiorfile"); $Filter_Args = "-ORBInitRef NameService=file://$flt_nsiorfile -ORBDebugLevel $debug_level"; diff --git a/TAO/orbsvcs/examples/Notify/Lanes/run_test.pl b/TAO/orbsvcs/examples/Notify/Lanes/run_test.pl index e87cc47f979..ce75dd5530a 100755 --- a/TAO/orbsvcs/examples/Notify/Lanes/run_test.pl +++ b/TAO/orbsvcs/examples/Notify/Lanes/run_test.pl @@ -57,7 +57,7 @@ $nfs->DeleteFile ($nfsiorfile); $sup->DeleteFile ($supiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); $NFS = $nfs->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Notify_Service/Notify_Service"); diff --git a/TAO/orbsvcs/examples/Notify/Subscribe/run_test.pl b/TAO/orbsvcs/examples/Notify/Subscribe/run_test.pl index 28f694b5206..9dc4a12037d 100755 --- a/TAO/orbsvcs/examples/Notify/Subscribe/run_test.pl +++ b/TAO/orbsvcs/examples/Notify/Subscribe/run_test.pl @@ -38,13 +38,13 @@ $nfs->DeleteFile ($nsiorfile); $sub->DeleteFile ($nsiorfile); $nfs->DeleteFile ($nfsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); $NFS = $nfs->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Notify_Service/Notify_Service"); $Notify_Args = "-ORBInitRef NameService=file://$nfs_nsiorfile -IORoutput $nfs_nfsiorfile "; -$SUB = $sub->CreateProcess ("Subscribe"); +$SUB = $sub->CreateProcess ("Subscribe"); $Subscribe_Args = "-ORBInitRef NameService=file://$sub_nsiorfile -ORBDebugLevel $debug_level"; $NS_status = $NS->Spawn (); diff --git a/TAO/orbsvcs/examples/Notify/ThreadPool/run_test.pl b/TAO/orbsvcs/examples/Notify/ThreadPool/run_test.pl index 61f862dab37..0d6d069a962 100755 --- a/TAO/orbsvcs/examples/Notify/ThreadPool/run_test.pl +++ b/TAO/orbsvcs/examples/Notify/ThreadPool/run_test.pl @@ -63,7 +63,7 @@ $nfs->DeleteFile ($nfsiorfile); $sup->DeleteFile ($supiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); $NFS = $nfs->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Notify_Service/Notify_Service"); diff --git a/TAO/orbsvcs/examples/RtEC/IIOPGateway/consumerec_crash.pl b/TAO/orbsvcs/examples/RtEC/IIOPGateway/consumerec_crash.pl index a34cba2cb9e..c5c8b9ffa01 100755 --- a/TAO/orbsvcs/examples/RtEC/IIOPGateway/consumerec_crash.pl +++ b/TAO/orbsvcs/examples/RtEC/IIOPGateway/consumerec_crash.pl @@ -44,31 +44,31 @@ $g->DeleteFile ($nsiorfile); $c->DeleteFile ($nsiorfile); $s->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$T1 = $t1->CreateProcess ("EC", +$T1 = $t1->CreateProcess ("EC", " -ORBInitRef NameService=file://$t1_nsiorfile ". "-ORBsvcconf $t1_conffile ". "-e channel1"); -$T2 = $t2->CreateProcess ("EC", +$T2 = $t2->CreateProcess ("EC", " -ORBInitRef NameService=file://$t2_nsiorfile ". "-ORBsvcconf $t2_conffile ". "-e channel2"); -$G = $g->CreateProcess ("Gateway", +$G = $g->CreateProcess ("Gateway", " -ORBInitRef NameService=file://$g_nsiorfile ". "-ORBSvcconf $g_gconffile ". "-c channel2 ". "-s channel1"); -$C = $c->CreateProcess ("Consumer", +$C = $c->CreateProcess ("Consumer", " -ORBInitRef NameService=file://$c_nsiorfile ". "-ORBDebugLevel $debug_level ". "-e channel2"); -$S = $s->CreateProcess ("Supplier", +$S = $s->CreateProcess ("Supplier", " -ORBInitRef NameService=file://$s_nsiorfile ". "-e channel1"); diff --git a/TAO/orbsvcs/examples/RtEC/IIOPGateway/run_test.pl b/TAO/orbsvcs/examples/RtEC/IIOPGateway/run_test.pl index 4a6868692c2..c49eabe8d0c 100755 --- a/TAO/orbsvcs/examples/RtEC/IIOPGateway/run_test.pl +++ b/TAO/orbsvcs/examples/RtEC/IIOPGateway/run_test.pl @@ -44,31 +44,31 @@ $g->DeleteFile ($nsiorfile); $c->DeleteFile ($nsiorfile); $s->DeleteFile ($nsiorfile); -$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("$ENV{TAO_ROOT}/orbsvcs/Naming_Service/Naming_Service", " -o $ns_nsiorfile"); -$T1 = $t1->CreateProcess ("EC", +$T1 = $t1->CreateProcess ("EC", " -ORBInitRef NameService=file://$t1_nsiorfile ". "-ORBsvcconf $t1_conffile ". "-e channel1"); -$T2 = $t2->CreateProcess ("EC", +$T2 = $t2->CreateProcess ("EC", " -ORBInitRef NameService=file://$t2_nsiorfile ". "-ORBsvcconf $t2_conffile ". "-e channel2"); -$G = $g->CreateProcess ("Gateway", +$G = $g->CreateProcess ("Gateway", " -ORBInitRef NameService=file://$g_nsiorfile ". "-ORBSvcconf $g_gconffile ". "-c channel2 ". "-s channel1"); -$C = $c->CreateProcess ("Consumer", +$C = $c->CreateProcess ("Consumer", " -ORBInitRef NameService=file://$c_nsiorfile ". "-ORBDebugLevel $debug_level ". "-e channel2"); -$S = $s->CreateProcess ("Supplier", +$S = $s->CreateProcess ("Supplier", " -ORBInitRef NameService=file://$s_nsiorfile ". "-e channel1"); -- cgit v1.2.1