diff options
Diffstat (limited to 'TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl')
-rwxr-xr-x[-rw-r--r--] | TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl b/TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl index 99c179c46cc..2b479ea579c 100644..100755 --- a/TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl +++ b/TAO/DevGuideExamples/PortableInterceptors/Auth/run_test.pl @@ -10,6 +10,8 @@ use PerlACE::Run_Test; # start MessengerServer my($iorfile) = 'Messenger.ior'; +unlink($iorfile); + $S = new PerlACE::Process("MessengerServer"); $S->Spawn(); if (PerlACE::waitforfile_timed ( @@ -31,6 +33,7 @@ if ($C->SpawnWaitKill(15) != 0) { # clean-up $S->Kill(); +unlink($iorfile); exit 0; |