diff options
Diffstat (limited to 'TAO/tests/NestedUpcall/Reactor/run_test.pl')
| -rwxr-xr-x | TAO/tests/NestedUpcall/Reactor/run_test.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/TAO/tests/NestedUpcall/Reactor/run_test.pl b/TAO/tests/NestedUpcall/Reactor/run_test.pl index e86eee20278..4dda2cc2e11 100755 --- a/TAO/tests/NestedUpcall/Reactor/run_test.pl +++ b/TAO/tests/NestedUpcall/Reactor/run_test.pl @@ -1,21 +1,20 @@ +# $Id$ +# -*- perl -*- eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ -# -*- perl -*- - unshift @INC, '../../../../bin'; require Process; require ACEutils; -$SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, - " -ORBobjrefstyle url"); +$SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, + " -ORBobjrefstyle url"); sleep ($ACE::sleeptime); $status = system ($EXEPREFIX."client".$Process::EXE_EXT. - " -x "); + " -x "); $SV->Wait (); |