ChangeLogTag:Thu Jun 17 10:05:53 1999 Carlos O'Ryan <coryan@cs.wustl.edu>

14 files changed, 34 insertions, 34 deletions

diff --git a/TAO/examples/POA/Adapter_Activator/run_test.pl b/TAO/examples/POA/Adapter_Activator/run_test.pl
index ab75bdeaaee..e32984f14e0 100755
--- a/TAO/examples/POA/Adapter_Activator/run_test.pl
+++ b/TAO/examples/POA/Adapter_Activator/run_test.pl
@@ -59,7 +59,7 @@ unlink $iorfile_1;
 unlink $iorfile_2;
 unlink $iorfile_3;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile_1>\n";
   $SV->Kill (); $SV->TimedWait (1);
@@ -78,11 +78,11 @@ if (ACE::waitforfile_timed ($iorfile_3, 5) == -1) {
   exit 1;
 }
 
-$CL_1  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_1  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_1");
-$CL_2  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_2  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_2");
-$CL_3  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_3  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_3 -x");
 
 
diff --git a/TAO/examples/POA/DSI/run_test.pl b/TAO/examples/POA/DSI/run_test.pl
index c914fa21047..e0fae9a8394 100755
--- a/TAO/examples/POA/DSI/run_test.pl
+++ b/TAO/examples/POA/DSI/run_test.pl
@@ -12,7 +12,7 @@ $iorfile = "server.ior";
 
 unlink $iorfile;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", " -f $iorfile");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", " -f $iorfile");
 
 if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile>\n";
@@ -20,7 +20,7 @@ if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   exit 1;
 }
 
-$CL = Process::Create ($EXEPREFIX."client$Process::EXE_EXT ",
+$CL = Process::Create ($EXEPREFIX."client$EXE_EXT ",
 		       " -f $iorfile -x");
 
 $client = $CL->TimedWait (60);
diff --git a/TAO/examples/POA/Default_Servant/run_test.pl b/TAO/examples/POA/Default_Servant/run_test.pl
index 129744c1a63..c303370d131 100755
--- a/TAO/examples/POA/Default_Servant/run_test.pl
+++ b/TAO/examples/POA/Default_Servant/run_test.pl
@@ -12,7 +12,7 @@ $iorfile = "server.ior";
 
 unlink $iorfile;
 
-$SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT,
+$SV = Process::Create ($EXEPREFIX."server".$EXE_EXT,
 		       " -o $iorfile");
 
 if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
@@ -21,7 +21,7 @@ if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   exit 1;
 }
 
-$CL  = Process::Create ($EXEPREFIX."client$Process::EXE_EXT ",
+$CL  = Process::Create ($EXEPREFIX."client$EXE_EXT ",
 			" -k $iorfile");
 
 $client = $CL->TimedWait (60);
diff --git a/TAO/examples/POA/Explicit_Activation/run_test.pl b/TAO/examples/POA/Explicit_Activation/run_test.pl
index 7006effaafc..4036059e83f 100755
--- a/TAO/examples/POA/Explicit_Activation/run_test.pl
+++ b/TAO/examples/POA/Explicit_Activation/run_test.pl
@@ -60,7 +60,7 @@ unlink $iorfile_2;
 unlink $iorfile_3;
 
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 
 if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile_1>\n";
@@ -80,11 +80,11 @@ if (ACE::waitforfile_timed ($iorfile_3, 5) == -1) {
   exit 1;
 }
 
-$CL_1  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_1  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_1");
-$CL_2  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_2  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_2");
-$CL_3  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_3  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_3 -x");
 
 
diff --git a/TAO/examples/POA/FindPOA/run_test.pl b/TAO/examples/POA/FindPOA/run_test.pl
index ee0c863b9a6..431a4597054 100755
--- a/TAO/examples/POA/FindPOA/run_test.pl
+++ b/TAO/examples/POA/FindPOA/run_test.pl
@@ -8,7 +8,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 unshift @INC, '../../../../bin';
 require ACEutils;
 
-$TEST  = Process::Create ($EXEPREFIX."FindPOA$Process::EXE_EXT","");
+$TEST  = Process::Create ($EXEPREFIX."FindPOA$EXE_EXT","");
 
 if ($TEST->TimedWait (60) == -1){
   print STDERR "ERROR: test timedout\n";
diff --git a/TAO/examples/POA/Forwarding/run_test.pl b/TAO/examples/POA/Forwarding/run_test.pl
index 5ba649c1316..afb11d01a92 100755
--- a/TAO/examples/POA/Forwarding/run_test.pl
+++ b/TAO/examples/POA/Forwarding/run_test.pl
@@ -78,7 +78,7 @@ sub run_test
     cleanup_ior ();
 
     # Run the servers
-    $SRV1 = Process::Create  (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
+    $SRV1 = Process::Create  (".".$DIR_SEPARATOR."server".$EXE_EXT,
                              "$server1args");
     print STDERR ("server $server1args\n");
 
@@ -88,7 +88,7 @@ sub run_test
       exit 1;
     }
 
-    $SRV2 = Process::Create  (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
+    $SRV2 = Process::Create  (".".$DIR_SEPARATOR."server".$EXE_EXT,
                              "$server2args");
     print STDERR ("server $server2args\n");
 
@@ -100,7 +100,7 @@ sub run_test
     }
 
     if ($server3args ne "") {
-      $SRV3 = Process::Create (".".$DIR_SEPARATOR."server".$Process::EXE_EXT,
+      $SRV3 = Process::Create (".".$DIR_SEPARATOR."server".$EXE_EXT,
 			       "$server3args");
 
       if (ACE::waitforfile_timed ("server3", 5) == -1) {
@@ -113,7 +113,7 @@ sub run_test
     }
 
     # Run the client and block until completion
-    $CL = Process::Create ($EXEPREFIX."client".$Process::EXE_EXT,
+    $CL = Process::Create ($EXEPREFIX."client".$EXE_EXT,
 			   " $clientargs");
     print STDERR ("client $clientargs\n");
 
diff --git a/TAO/examples/POA/Identity/run_test.pl b/TAO/examples/POA/Identity/run_test.pl
index e79020ce66c..b25cf4a7ff4 100755
--- a/TAO/examples/POA/Identity/run_test.pl
+++ b/TAO/examples/POA/Identity/run_test.pl
@@ -9,7 +9,7 @@ unshift @INC, '../../../bin';
 require Process;
 require ACEutils;
 
-$T = Process::Create ($EXEPREFIX."Identity");
+$T = Process::Create ($EXEPREFIX."Identity".$EXE_EXT);
 
 $client = $T->TimedWait (60);
 if ($client == -1) {
diff --git a/TAO/examples/POA/Loader/run_test.pl b/TAO/examples/POA/Loader/run_test.pl
index b901c6a8344..29e7c37c12c 100755
--- a/TAO/examples/POA/Loader/run_test.pl
+++ b/TAO/examples/POA/Loader/run_test.pl
@@ -57,7 +57,7 @@ $iorfile_2 = $iorfile."_2";
 unlink $iorfile_1;
 unlink $iorfile_2;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 
 if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile_1>\n";
@@ -72,9 +72,9 @@ if (ACE::waitforfile_timed ($iorfile_2, 5) == -1) {
 }
 
 
-$CL_1  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_1  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			 " $extra_args $oneway -i $iterations -f $iorfile_1");
-$CL_2  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_2  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_2 -x");
 
 
diff --git a/TAO/examples/POA/NewPOA/run_test.pl b/TAO/examples/POA/NewPOA/run_test.pl
index a40bd3ec88a..ab550847c8d 100755
--- a/TAO/examples/POA/NewPOA/run_test.pl
+++ b/TAO/examples/POA/NewPOA/run_test.pl
@@ -8,7 +8,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 unshift @INC, '../../../../bin';
 require ACEutils;
 
-$TEST  = Process::Create ($EXEPREFIX."NewPOA$Process::EXE_EXT", "");
+$TEST  = Process::Create ($EXEPREFIX."NewPOA$EXE_EXT", "");
 if ($TEST->TimedWait (60) == -1) {
   print STDERR "ERROR: test timedout\n";
   $TEST->Kill (); $TEST->TimedWait (1);
diff --git a/TAO/examples/POA/On_Demand_Activation/run_test.pl b/TAO/examples/POA/On_Demand_Activation/run_test.pl
index 6a84c82e153..b0f60b06aae 100755
--- a/TAO/examples/POA/On_Demand_Activation/run_test.pl
+++ b/TAO/examples/POA/On_Demand_Activation/run_test.pl
@@ -57,7 +57,7 @@ $iorfile_2 = $iorfile."_2";
 unlink $iorfile_1;
 unlink $iorfile_2;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 
 if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile_1>\n";
@@ -71,9 +71,9 @@ if (ACE::waitforfile_timed ($iorfile_2, 5) == -1) {
   exit 1;
 }
 
-$CL_1  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_1  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  "$extra_args $oneway -i $iterations -f $iorfile_1");
-$CL_2  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_2  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  "$extra_args $oneway -i $iterations -f $iorfile_2 -x");
 
 
diff --git a/TAO/examples/POA/On_Demand_Loading/run_test.pl b/TAO/examples/POA/On_Demand_Loading/run_test.pl
index 08f9d16e7b7..a16a69cc5c1 100755
--- a/TAO/examples/POA/On_Demand_Loading/run_test.pl
+++ b/TAO/examples/POA/On_Demand_Loading/run_test.pl
@@ -57,7 +57,7 @@ $iorfile_2 = $iorfile."_2";
 unlink $iorfile_1;
 unlink $iorfile_2;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 
 if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile_1>\n";
@@ -73,9 +73,9 @@ if (ACE::waitforfile_timed ($iorfile_2, 5) == -1) {
 
 
 
-$CL_1  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_1  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_1");
-$CL_2  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL_2  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			  " $extra_args $oneway -i $iterations -f $iorfile_2 -x");
 
 $client_1 = $CL_1->TimedWait (60);
diff --git a/TAO/examples/POA/Reference_Counted_Servant/run_test.pl b/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
index 15ff238f4c9..d8a11cac826 100755
--- a/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
+++ b/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
@@ -53,7 +53,7 @@ for ($i = 0; $i <= $#ARGV; $i++)
 
 unlink $iorfile;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT", "-f $iorfile $extra_args");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT", "-f $iorfile $extra_args");
 
 if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   print STDERR "ERROR: cannot find file <$iorfile>\n";
@@ -61,7 +61,7 @@ if (ACE::waitforfile_timed ($iorfile, 5) == -1) {
   exit 1;
 }
 
-$CL  = Process::Create ("../Generic_Servant/client$Process::EXE_EXT ",
+$CL  = Process::Create ("../Generic_Servant/client$EXE_EXT ",
 			" $extra_args $oneway -i $iterations -f $iorfile -x");
 
 $client = $CL->TimedWait (60);
diff --git a/TAO/examples/POA/RootPOA/run_test.pl b/TAO/examples/POA/RootPOA/run_test.pl
index f64877afb04..487efdd670e 100755
--- a/TAO/examples/POA/RootPOA/run_test.pl
+++ b/TAO/examples/POA/RootPOA/run_test.pl
@@ -9,7 +9,7 @@ unshift @INC, '../../../bin';
 require Process;
 require ACEutils;
 
-$T = Process::Create ($EXEPREFIX."RootPOA");
+$T = Process::Create ($EXEPREFIX."RootPOA".$EXE_EXT);
 
 $client = $T->TimedWait (60);
 if ($client == -1) {
diff --git a/TAO/examples/POA/TIE/run_test.pl b/TAO/examples/POA/TIE/run_test.pl
index 69d5f6bcb4c..3e32f8942f7 100755
--- a/TAO/examples/POA/TIE/run_test.pl
+++ b/TAO/examples/POA/TIE/run_test.pl
@@ -24,7 +24,7 @@ unlink $iorfile_4;
 unlink $iorfile_5;
 unlink $iorfile_6;
 
-$SV = Process::Create ($EXEPREFIX."server$Process::EXE_EXT");
+$SV = Process::Create ($EXEPREFIX."server$EXE_EXT");
 
 # In this example all the files are written out at the same time. So  make a
 # check only for the first file
@@ -35,10 +35,10 @@ if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
 }
 
 ACE::waitforfile ($iorfile_1);
-$status  = Process::Create ($EXEPREFIX."client$Process::EXE_EXT  -a file://$iorfile_1 -b file://$iorfile_2 -c file://$iorfile_3 -d file://$iorfile_4");
+$status  = Process::Create ($EXEPREFIX."client$EXE_EXT  -a file://$iorfile_1 -b file://$iorfile_2 -c file://$iorfile_3 -d file://$iorfile_4");
 
 if (ACE::waitforfile_timed ($iorfile_5,1) == 0) {
-$status  = Process::Create ($EXEPREFIX."client$Process::EXE_EXT  -e file://$iorfile_5 -f file://$iorfile_6");
+$status  = Process::Create ($EXEPREFIX."client$EXE_EXT  -e file://$iorfile_5 -f file://$iorfile_6");
 }
 
 unlink $iorfile_1;