ChangeLogTag:Mon Oct 21 14:29:54 2002 Nanbor Wang <nanbor@cs.wustl.edu>

23 files changed, 51 insertions, 49 deletions

diff --git a/TAO/orbsvcs/examples/RtEC/Simple/run_test.pl b/TAO/orbsvcs/examples/RtEC/Simple/run_test.pl
index b9fdb3a3cac..c6569e66368 100755
--- a/TAO/orbsvcs/examples/RtEC/Simple/run_test.pl
+++ b/TAO/orbsvcs/examples/RtEC/Simple/run_test.pl
@@ -11,7 +11,7 @@ use PerlACE::Run_Test;
 $status = 0;
 
 $iorfile  = PerlACE::LocalFile ("ec.ior");
-$conffile = PerlACE::LocalFile ("ec.conf");
+$conffile = PerlACE::LocalFile ("ec" . "$PerlACE::svcconf_ext");
 
 unlink $iorfile;
 
diff --git a/TAO/orbsvcs/examples/Security/Send_File/run_test.pl b/TAO/orbsvcs/examples/Security/Send_File/run_test.pl
index 963e56fd136..b7b2ed47fea 100755
--- a/TAO/orbsvcs/examples/Security/Send_File/run_test.pl
+++ b/TAO/orbsvcs/examples/Security/Send_File/run_test.pl
@@ -18,8 +18,9 @@ $ENV{'SSL_CERT_FILE'} = 'cacert.pem';
 $iorfile = "server.ior";
 unlink $iorfile;
 $SV = Process::Create ($EXEPREFIX."server$EXE_EXT ",
-                       " -ORBSvcConf server_nopasswd.conf "
-                       . " -o $iorfile");
+                       " -ORBSvcConf server_nopasswd" .
+                       "$PerlACE::svcconf_ext " .
+                       " -o $iorfile");
 
 if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile>\n";
@@ -28,8 +29,9 @@ if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
 }
 
 $CL = Process::Create ($EXEPREFIX."client$EXE_EXT ",
-                       " -ORBSvcConf client_nopasswd.conf "
-                       . " -k file://$iorfile < client.cpp");
+                       " -ORBSvcConf client_nopasswd" .
+                       "$PerlACE::svcconf_ext " .
+                       " -k file://$iorfile < client.cpp");
 
 $client = $CL->TimedWait (60);
 if ($client == -1) {
diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
index 08ca59f2925..878b86cc065 100755
--- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
@@ -22,15 +22,15 @@ $makefile = PerlACE::LocalFile ("input");
 unlink $nsior;
 
 $NS  = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-ORBDottedDecimalAddresses 1 -o $nsior");
-$SV1  = new PerlACE::Process ("sender", "-ORBDottedDecimalAddresses 1 ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30");
-$SV2  = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30");
-$SV3  = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r 30");
-$RE1 = new PerlACE::Process ("receiver", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s distributer -r receiver1 -f output1");
-$RE2 = new PerlACE::Process ("receiver", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s distributer -r receiver2 -f output2");
-$DI1 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r distributer");
-$DI2 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r distributer");
-$DI3 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r distributer");
-$DI4 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -s sender -r distributer");
+$SV1  = new PerlACE::Process ("sender", "-ORBDottedDecimalAddresses 1 ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r 30");
+$SV2  = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r 30");
+$SV3  = new PerlACE::Process ("sender", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r 30");
+$RE1 = new PerlACE::Process ("receiver", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s distributer -r receiver1 -f output1");
+$RE2 = new PerlACE::Process ("receiver", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s distributer -r receiver2 -f output2");
+$DI1 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r distributer");
+$DI2 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r distributer");
+$DI3 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r distributer");
+$DI4 = new PerlACE::Process ("distributer", " -ORBDottedDecimalAddresses 1 -ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -s sender -r distributer");
 
 print STDERR "\nReceiver 1 --> Receiver 2 --> Distributer 1 --> Sender1 --> Distributer 2 --> Distributer 3 --> Sender2 --> Sender3 --> Distributer4\n\n";
 
diff --git a/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
index 84f5aec1fcf..1f9ae20a47d 100755
--- a/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Multicast/run_test.pl
@@ -23,7 +23,7 @@ unlink $nsior, $test1, $test2;
 $NS  = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-o $nsior");
 $SV1 = new PerlACE::Process ("server", "-ORBInitRef NameService=file://$nsior -f $test1");
 $SV2 = new PerlACE::Process ("server", "-ORBInitRef NameService=file://$nsior -f $test2");
-$CL  = new PerlACE::Process ("ftp", "-ORBSvcConf components_svc.conf -ORBInitRef NameService=file://$nsior -f $makefile");
+$CL  = new PerlACE::Process ("ftp", "-ORBSvcConf components_svc$PerlACE::svcconf_ext -ORBInitRef NameService=file://$nsior -f $makefile");
 
 print STDERR "Starting Naming Service\n";
 
diff --git a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
index 2f5ff8af44c..359318a505c 100755
--- a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
+++ b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
@@ -13,7 +13,7 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-$svc_pull_conf = PerlACE::LocalFile ("svc.pull.conf");
+$svc_pull_conf = PerlACE::LocalFile ("svc.pull$PerlACE::svcconf_ext");
 
 sub RunTest ($$$)
 {
diff --git a/TAO/orbsvcs/tests/EC_Mcast/run_test.pl b/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
index 443a19d3e24..21219bb625c 100755
--- a/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Mcast/run_test.pl
@@ -11,7 +11,7 @@ use PerlACE::Run_Test;
 $status = 0;
 
 $sample_cfg = PerlACE::LocalFile ("sample.cfg");
-$svc_conf = PerlACE::LocalFile ("svc.conf");
+$svc_conf = PerlACE::LocalFile ("svc$PerlACE::svcconf_ext");
 
 # Run two copies of the same test...
 $T1 = new PerlACE::Process ("EC_Mcast",
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
index 46185c56ada..9a6c9f60343 100755
--- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
@@ -10,8 +10,8 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-$ec_conf = PerlACE::LocalFile ("ec.conf");
-$ec_mt_conf = PerlACE::LocalFile ("ec_mt.conf");
+$ec_conf = PerlACE::LocalFile ("ec$PerlACE::svcconf_ext");
+$ec_mt_conf = PerlACE::LocalFile ("ec$PerlACE::svcconf_ext");
 
 print STDERR "================ Collocated tests, single threaded\n";
 
diff --git a/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl b/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl
index 8ac6b2e0dc1..417288cbe25 100755
--- a/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl
+++ b/TAO/orbsvcs/tests/Event/Basic/exhaustive_test.pl
@@ -13,7 +13,7 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-$conf_file = PerlACE::LocalFile ('exhaustive.conf');
+$conf_file = PerlACE::LocalFile ('exhaustive$PerlACE::svcconf_ext');
 
 @dispatching_configs   = ("-ECDispatching reactive",
                           "-ECDispatching mt -ECDispatchingThreads 4");
diff --git a/TAO/orbsvcs/tests/Event/Basic/run_test.pl b/TAO/orbsvcs/tests/Event/Basic/run_test.pl
index cbe4506e0d2..daa88c808d1 100755
--- a/TAO/orbsvcs/tests/Event/Basic/run_test.pl
+++ b/TAO/orbsvcs/tests/Event/Basic/run_test.pl
@@ -13,12 +13,12 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-$svc_conf = PerlACE::LocalFile ("svc.conf");
-$observer_conf = PerlACE::LocalFile ("observer.conf");
-$svc_complex_conf = PerlACE::LocalFile ("svc.complex.conf");
-$mt_svc_conf = PerlACE::LocalFile ("mt.svc.conf");
-$svc_complex_conf = PerlACE::LocalFile ("svc.complex.conf");
-$control_conf = PerlACE::LocalFile ("control.conf");
+$svc_conf = PerlACE::LocalFile ("svc$PerlACE::svcconf_ext");
+$observer_conf = PerlACE::LocalFile ("observer$PerlACE::svcconf_ext");
+$svc_complex_conf = PerlACE::LocalFile ("svc.complex$PerlACE::svcconf_ext");
+$mt_svc_conf = PerlACE::LocalFile ("mt.svc$PerlACE::svcconf_ext");
+$svc_complex_conf = PerlACE::LocalFile ("svc.complex$PerlACE::svcconf_ext");
+$control_conf = PerlACE::LocalFile ("control$PerlACE::svcconf_ext");
 
 sub RunTest ($$$)
 {
diff --git a/TAO/orbsvcs/tests/Event/Performance/run_test.pl b/TAO/orbsvcs/tests/Event/Performance/run_test.pl
index 56145ed31e7..bde6790200e 100755
--- a/TAO/orbsvcs/tests/Event/Performance/run_test.pl
+++ b/TAO/orbsvcs/tests/Event/Performance/run_test.pl
@@ -13,7 +13,7 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-$ec_st_conf = PerlACE::LocalFile ("ec.st.conf");
+$ec_st_conf = PerlACE::LocalFile ("ec.st$PerlACE::svcconf_ext");
 
 sub RunTest ($$$)
 {
diff --git a/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl b/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl
index d8fb7b37a5d..41516c9d327 100755
--- a/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl
+++ b/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl
@@ -12,8 +12,8 @@ $iorfile = PerlACE::LocalFile ("server.ior");
 unlink $iorfile;
 $status = 0;
 
-$server_conf = PerlACE::LocalFile ("server.conf");
-$client_conf = PerlACE::LocalFile ("client.conf");
+$server_conf = PerlACE::LocalFile ("server$PerlACE::svcconf_ext");
+$client_conf = PerlACE::LocalFile ("client$PerlACE::svcconf_ext");
 
 $SV1 = new PerlACE::Process ("server", "-o $iorfile -ORBsvcconf $server_conf");
 $SV2 = new PerlACE::Process ("server", "-o $iorfile -ORBsvcconf $server_conf");
diff --git a/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl b/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
index e8ba1ab1fa7..d2c6c3d90cc 100755
--- a/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 
 unlink $notifyior;
diff --git a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl
index eb72f8dd49a..4ab749ddb0a 100755
--- a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 $deadline = 0;
 
diff --git a/TAO/orbsvcs/tests/Notify/MT_Dispatching/run_test.pl b/TAO/orbsvcs/tests/Notify/MT_Dispatching/run_test.pl
index e615ffe0984..e248a9b3207 100755
--- a/TAO/orbsvcs/tests/Notify/MT_Dispatching/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/MT_Dispatching/run_test.pl
@@ -12,10 +12,10 @@ $ior = PerlACE::LocalFile ("supplier.ior");
 $notify_ior = PerlACE::LocalFile ("notify.ior");
 $notify_out = PerlACE::LocalFile ("notify.out");
 
-$notify_nothreads_conf = PerlACE::LocalFile ("notify_nothreads.conf");
-$notify_mtdispatching_conf = PerlACE::LocalFile ("notify_mtdispatching.conf");
-$notify_mtsource_conf = PerlACE::LocalFile ("notify_mtsource.conf");
-$notify_mtlistener_conf = PerlACE::LocalFile ("notify_mtlistener.conf");
+$notify_nothreads_conf = PerlACE::LocalFile ("notify_nothreads$PerlACE::svcconf_ext");
+$notify_mtdispatching_conf = PerlACE::LocalFile ("notify_mtdispatching$PerlACE::svcconf_ext");
+$notify_mtsource_conf = PerlACE::LocalFile ("notify_mtsource$PerlACE::svcconf_ext");
+$notify_mtlistener_conf = PerlACE::LocalFile ("notify_mtlistener$PerlACE::svcconf_ext");
 
 $status = 0;
 
diff --git a/TAO/orbsvcs/tests/Notify/Ordering/run_test.pl b/TAO/orbsvcs/tests/Notify/Ordering/run_test.pl
index 511a2d90f10..94e15581be2 100755
--- a/TAO/orbsvcs/tests/Notify/Ordering/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Ordering/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 $deadline = 0;
 
diff --git a/TAO/orbsvcs/tests/Notify/Sequence_Multi_ETCL_Filter/run_test.pl b/TAO/orbsvcs/tests/Notify/Sequence_Multi_ETCL_Filter/run_test.pl
index 28a9926528a..7e18cde92f8 100755
--- a/TAO/orbsvcs/tests/Notify/Sequence_Multi_ETCL_Filter/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Sequence_Multi_ETCL_Filter/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 
 unlink $notifyior;
diff --git a/TAO/orbsvcs/tests/Notify/Sequence_Multi_Filter/run_test.pl b/TAO/orbsvcs/tests/Notify/Sequence_Multi_Filter/run_test.pl
index 8689951739c..095235dd559 100755
--- a/TAO/orbsvcs/tests/Notify/Sequence_Multi_Filter/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Sequence_Multi_Filter/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 
 unlink $notifyior;
diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/Filter/run_test.pl b/TAO/orbsvcs/tests/Notify/performance-tests/Filter/run_test.pl
index 74b492a1795..7dbaa140fca 100755
--- a/TAO/orbsvcs/tests/Notify/performance-tests/Filter/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/performance-tests/Filter/run_test.pl
@@ -10,7 +10,7 @@ use PerlACE::Run_Test;
 
 $ior = PerlACE::LocalFile ("supplier.ior");
 $notifyior = PerlACE::LocalFile ("notify.ior");
-$notify_conf = PerlACE::LocalFile ("notify.conf");
+$notify_conf = PerlACE::LocalFile ("notify$PerlACE::svcconf_ext");
 $status = 0;
 
 unlink $notifyior;
diff --git a/TAO/orbsvcs/tests/Security/Big_Request/run_test.pl b/TAO/orbsvcs/tests/Security/Big_Request/run_test.pl
index c0683d7cd6c..8c19e2c474c 100755
--- a/TAO/orbsvcs/tests/Security/Big_Request/run_test.pl
+++ b/TAO/orbsvcs/tests/Security/Big_Request/run_test.pl
@@ -19,9 +19,9 @@ $status = 0;
 $ENV{'SSL_CERT_FILE'} = 'cacert.pem';
 
 $SV = new PerlACE::Process ("server",
-			    "-o $file -ORBSvcConf server.conf");
+			    "-o $file -ORBSvcConf server$PerlACE::svcconf_ext");
 $CL = new PerlACE::Process ("client",
-			    "-ORBSvcConf client.conf -k file://$file");
+			    "-ORBSvcConf client$PerlACE::svcconf_ext -k file://$file");
 
 print STDERR "\n\n==== Running SSLIOP Big_Request test\n";
 
diff --git a/TAO/orbsvcs/tests/Security/Callback/run_test.pl b/TAO/orbsvcs/tests/Security/Callback/run_test.pl
index 25fb1369755..b18cf0329fe 100755
--- a/TAO/orbsvcs/tests/Security/Callback/run_test.pl
+++ b/TAO/orbsvcs/tests/Security/Callback/run_test.pl
@@ -19,9 +19,9 @@ $status = 0;
 $ENV{'SSL_CERT_FILE'} = 'cacert.pem';
 
 $SV = new PerlACE::Process ("server",
-			    "-o $file -ORBSvcConf server.conf");
+			    "-o $file -ORBSvcConf server$PerlACE::svcconf_ext");
 $CL = new PerlACE::Process ("client",
-			    "-ORBSvcConf client.conf");
+			    "-ORBSvcConf client$PerlACE::svcconf_ext");
 
 print STDERR "\n\n==== Running SSLIOP Callback test\n";
 
diff --git a/TAO/orbsvcs/tests/Security/MT_SSLIOP/run_test.pl b/TAO/orbsvcs/tests/Security/MT_SSLIOP/run_test.pl
index 49ec72125c7..24846ed2477 100755
--- a/TAO/orbsvcs/tests/Security/MT_SSLIOP/run_test.pl
+++ b/TAO/orbsvcs/tests/Security/MT_SSLIOP/run_test.pl
@@ -12,8 +12,8 @@ use PerlACE::Run_Test;
 $status = 0;
 $threads = '2';
 $iorfile = PerlACE::LocalFile ("test.ior");
-$sv_conf = PerlACE::LocalFile ("server.conf");
-$cl_conf = PerlACE::LocalFile ("client.conf");
+$sv_conf = PerlACE::LocalFile ("server$PerlACE::svcconf_ext");
+$cl_conf = PerlACE::LocalFile ("client$PerlACE::svcconf_ext");
 
 unlink $iorfile;
 
diff --git a/TAO/orbsvcs/tests/Security/Secure_Invocation/run_test.pl b/TAO/orbsvcs/tests/Security/Secure_Invocation/run_test.pl
index b7a78e13b05..5aa928878ef 100755
--- a/TAO/orbsvcs/tests/Security/Secure_Invocation/run_test.pl
+++ b/TAO/orbsvcs/tests/Security/Secure_Invocation/run_test.pl
@@ -20,9 +20,9 @@ $status = 0;
 $ENV{'SSL_CERT_FILE'} = 'cacert.pem';
 
 $SV = new PerlACE::Process ("server",
-			    "-o $file -ORBSvcConf server.conf");
+			    "-o $file -ORBSvcConf server$PerlACE::svcconf_ext");
 $CL = new PerlACE::Process ("client",
-			    "-ORBSvcConf client.conf -k file://$file");
+			    "-ORBSvcConf client$PerlACE::svcconf_ext -k file://$file");
 
 print STDERR "\n\n==== Running Secure_Invocation test\n";
 
diff --git a/TAO/orbsvcs/tests/Security/SecurityLevel1/run_test.pl b/TAO/orbsvcs/tests/Security/SecurityLevel1/run_test.pl
index 3e522f16c9f..1de16551f11 100755
--- a/TAO/orbsvcs/tests/Security/SecurityLevel1/run_test.pl
+++ b/TAO/orbsvcs/tests/Security/SecurityLevel1/run_test.pl
@@ -19,9 +19,9 @@ $status = 0;
 $ENV{'SSL_CERT_FILE'} = 'ca.pem';
 
 $SV = new PerlACE::Process ("server",
-			    "-o $file -ORBSvcConf server.conf");
+			    "-o $file -ORBSvcConf server$PerlACE::svcconf_ext");
 $CL = new PerlACE::Process ("client",
-			    "-ORBSvcConf client.conf -k file://$file");
+			    "-ORBSvcConf client$PerlACE::svcconf_ext -k file://$file");
 
 print STDERR "\n\n==== Running SecurityLevel1 test\n";