diff options
| author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-13 01:55:13 +0000 |
|---|---|---|
| committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-13 01:55:13 +0000 |
| commit | 14cc15d113418a7fc276ec23cc65ce6e7be0da4a (patch) | |
| tree | a740fa0ba743fc4451de5115e70c12ed2d6318f5 /TAO/examples/POA/Default_Servant/run_test.pl | |
| parent | 6395c7f246833df6e85633bc8596114934b9d7c6 (diff) | |
| download | ATCD-14cc15d113418a7fc276ec23cc65ce6e7be0da4a.tar.gz | |
ChangeLogTag:Sat Jun 12 20:29:09 1999 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'TAO/examples/POA/Default_Servant/run_test.pl')
| -rwxr-xr-x | TAO/examples/POA/Default_Servant/run_test.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TAO/examples/POA/Default_Servant/run_test.pl b/TAO/examples/POA/Default_Servant/run_test.pl index f5ddf3f4eec..129744c1a63 100755 --- a/TAO/examples/POA/Default_Servant/run_test.pl +++ b/TAO/examples/POA/Default_Servant/run_test.pl @@ -12,7 +12,8 @@ $iorfile = "server.ior"; unlink $iorfile; -$SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, " -o $iorfile"); +$SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, + " -o $iorfile"); if (ACE::waitforfile_timed ($iorfile, 5) == -1) { print STDERR "ERROR: cannot find file <$iorfile>\n"; @@ -32,6 +33,7 @@ if ($client == -1) { $SV->Kill (); $SV->TimedWait (1); unlink $iorfile; +unlink "test"; # created by the program if ($client != 0) { exit 1; |