diff options
Diffstat (limited to 'TAO/examples/POA/On_Demand_Loading/run_test.pl')
-rwxr-xr-x | TAO/examples/POA/On_Demand_Loading/run_test.pl | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/TAO/examples/POA/On_Demand_Loading/run_test.pl b/TAO/examples/POA/On_Demand_Loading/run_test.pl index 4961df7a72e..7ecf9218f71 100755 --- a/TAO/examples/POA/On_Demand_Loading/run_test.pl +++ b/TAO/examples/POA/On_Demand_Loading/run_test.pl @@ -2,7 +2,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ +#$Id$ # -*- perl -*- unshift @INC, '../../../../bin'; @@ -13,8 +13,6 @@ $iorfile = "ior"; $oneway = ""; $iterations = 100; -$extra_args = ""; - # Parse the arguments for ($i = 0; $i <= $#ARGV; $i++) { @@ -47,7 +45,7 @@ for ($i = 0; $i <= $#ARGV; $i++) $i++; last SWITCH; } - $extra_args .= " " . $ARGV[$i]; + print "run_test: Unknown Option: ".$ARGV[$i]."\n"; } } @@ -57,13 +55,13 @@ $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$Process::EXE_EXT", "-f $iorfile"); ACE::waitforfile ($iorfile_1); ACE::waitforfile ($iorfile_2); -$status = system ("../Generic_Servant/client$Process::EXE_EXT $extra_args $oneway -i $iterations -f $iorfile_1"); -$status = system ("../Generic_Servant/client$Process::EXE_EXT $extra_args $oneway -i $iterations -f $iorfile_2 -x"); +$status = system ("../Generic_Servant/client$Process::EXE_EXT $oneway -i $iterations -f $iorfile_1"); +$status = system ("../Generic_Servant/client$Process::EXE_EXT $oneway -i $iterations -f $iorfile_2 -x"); unlink $iorfile_1; unlink $iorfile_2; |