summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-11-11 20:58:12 +0000
committerbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-11-11 20:58:12 +0000
commit2d1cb1901676dfe4b60b9919565d8d9bcb63244c (patch)
treeba98334569e2873798fc15851e41a75c0c637a86
parent0ad8d7f0d97e0a771afb59b1d4d0788fc8092677 (diff)
downloadATCD-2d1cb1901676dfe4b60b9919565d8d9bcb63244c.tar.gz
General updates, including switching to the ACE class and using .\ or ./
before executable names.
-rwxr-xr-xTAO/examples/POA/DSI/run_test.pl4
-rwxr-xr-xTAO/examples/POA/Default_Servant/run_test.pl4
-rwxr-xr-xTAO/examples/POA/Explicit_Activation/run_test.pl2
-rwxr-xr-xTAO/examples/POA/FindPOA/run_test.pl2
-rwxr-xr-xTAO/examples/POA/NewPOA/run_test.pl2
-rwxr-xr-xTAO/examples/POA/On_Demand_Activation/run_test.pl2
-rwxr-xr-xTAO/examples/Simple/echo/run_test.pl4
7 files changed, 10 insertions, 10 deletions
diff --git a/TAO/examples/POA/DSI/run_test.pl b/TAO/examples/POA/DSI/run_test.pl
index c2c60af69bd..3b44b3cd915 100755
--- a/TAO/examples/POA/DSI/run_test.pl
+++ b/TAO/examples/POA/DSI/run_test.pl
@@ -8,11 +8,11 @@ unshift @INC, '../../../../bin';
require ACEutils;
$iorfile = "server.ior";
-$SV = Process::Create ("server$Process::EXE_EXT", " -f $iorfile");
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", " -f $iorfile");
ACE::waitforfile ($iorfile);
-$status = system ("client$Process::EXE_EXT -f $iorfile");
+$status = system ($EXEPREFIX."client$Process::EXE_EXT -f $iorfile");
$SV->Kill (); $SV->Wait ();
diff --git a/TAO/examples/POA/Default_Servant/run_test.pl b/TAO/examples/POA/Default_Servant/run_test.pl
index 77416e8c4b5..b1aa8326481 100755
--- a/TAO/examples/POA/Default_Servant/run_test.pl
+++ b/TAO/examples/POA/Default_Servant/run_test.pl
@@ -8,11 +8,11 @@ unshift @INC, '../../../../bin';
require ACEutils;
$iorfile = "server.ior";
-$SV = Process::Create ("server$Process::EXE_EXT", " -o $iorfile");
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", " -o $iorfile");
ACE::waitforfile ($iorfile);
-$status = system ("client$Process::EXE_EXT -k $iorfile");
+$status = system ($EXEPREFIX."client$Process::EXE_EXT -k $iorfile");
$SV->Kill (); $SV->Wait ();
diff --git a/TAO/examples/POA/Explicit_Activation/run_test.pl b/TAO/examples/POA/Explicit_Activation/run_test.pl
index b434c380767..5ae9530e61d 100755
--- a/TAO/examples/POA/Explicit_Activation/run_test.pl
+++ b/TAO/examples/POA/Explicit_Activation/run_test.pl
@@ -54,7 +54,7 @@ $iorfile_1 = $iorfile."_1";
$iorfile_2 = $iorfile."_2";
$iorfile_3 = $iorfile."_3";
-$SV = Process::Create ("server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
ACE::waitforfile ($iorfile_1);
ACE::waitforfile ($iorfile_2);
diff --git a/TAO/examples/POA/FindPOA/run_test.pl b/TAO/examples/POA/FindPOA/run_test.pl
index fb9fa793988..931304a076c 100755
--- a/TAO/examples/POA/FindPOA/run_test.pl
+++ b/TAO/examples/POA/FindPOA/run_test.pl
@@ -7,6 +7,6 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
unshift @INC, '../../../../bin';
require ACEutils;
-$status = system ("FindPOA$Process::EXE_EXT");
+$status = system ($EXEPREFIX."FindPOA$Process::EXE_EXT");
exit $status;
diff --git a/TAO/examples/POA/NewPOA/run_test.pl b/TAO/examples/POA/NewPOA/run_test.pl
index 87d789a1eb8..e89d7d4e29b 100755
--- a/TAO/examples/POA/NewPOA/run_test.pl
+++ b/TAO/examples/POA/NewPOA/run_test.pl
@@ -7,5 +7,5 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
unshift @INC, '../../../../bin';
require ACEutils;
-$status = system ("NewPOA$Process::EXE_EXT");
+$status = system ($EXEPREFIX."NewPOA$Process::EXE_EXT");
exit $status;
diff --git a/TAO/examples/POA/On_Demand_Activation/run_test.pl b/TAO/examples/POA/On_Demand_Activation/run_test.pl
index f8b431cb97a..e1923d85122 100755
--- a/TAO/examples/POA/On_Demand_Activation/run_test.pl
+++ b/TAO/examples/POA/On_Demand_Activation/run_test.pl
@@ -51,7 +51,7 @@ for ($i = 0; $i <= $#ARGV; $i++)
$iorfile_1 = $iorfile."_1";
$iorfile_2 = $iorfile."_2";
-$SV = Process::Create ("server$Process::EXE_EXT", "-f $iorfile");
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile");
ACE::waitforfile ($iorfile_1);
ACE::waitforfile ($iorfile_2);
diff --git a/TAO/examples/Simple/echo/run_test.pl b/TAO/examples/Simple/echo/run_test.pl
index 890434e8aed..e79b6bedcd2 100755
--- a/TAO/examples/Simple/echo/run_test.pl
+++ b/TAO/examples/Simple/echo/run_test.pl
@@ -9,9 +9,9 @@ require ACEutils;
require Process;
-$SV = Process::Create ("server$Process::EXE_EXT", " ");
+$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", " ");
sleep ($ACE::sleeptime);
-$status = system ("client$Process::EXE_EXT -x");
+$status = system ($EXEPREFIX."client$Process::EXE_EXT -x");
$SV->Kill (); $SV->Wait ();