diff options
author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-11-11 20:58:12 +0000 |
---|---|---|
committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-11-11 20:58:12 +0000 |
commit | 2d1cb1901676dfe4b60b9919565d8d9bcb63244c (patch) | |
tree | ba98334569e2873798fc15851e41a75c0c637a86 | |
parent | 0ad8d7f0d97e0a771afb59b1d4d0788fc8092677 (diff) | |
download | ATCD-2d1cb1901676dfe4b60b9919565d8d9bcb63244c.tar.gz |
General updates, including switching to the ACE class and using .\ or ./
before executable names.
-rwxr-xr-x | TAO/examples/POA/DSI/run_test.pl | 4 | ||||
-rwxr-xr-x | TAO/examples/POA/Default_Servant/run_test.pl | 4 | ||||
-rwxr-xr-x | TAO/examples/POA/Explicit_Activation/run_test.pl | 2 | ||||
-rwxr-xr-x | TAO/examples/POA/FindPOA/run_test.pl | 2 | ||||
-rwxr-xr-x | TAO/examples/POA/NewPOA/run_test.pl | 2 | ||||
-rwxr-xr-x | TAO/examples/POA/On_Demand_Activation/run_test.pl | 2 | ||||
-rwxr-xr-x | TAO/examples/Simple/echo/run_test.pl | 4 |
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 (); |