ChangeLogTag:Fri Feb 22 00:39:46 UTC 2008 Steve Huston <shuston@riverace.com>

2 files changed, 4 insertions, 4 deletions

diff --git a/TAO/tests/AMH_Exceptions/run_test.pl b/TAO/tests/AMH_Exceptions/run_test.pl
index b76623d1ea7..d49ddedbdf3 100755
--- a/TAO/tests/AMH_Exceptions/run_test.pl
+++ b/TAO/tests/AMH_Exceptions/run_test.pl
@@ -14,7 +14,7 @@ use PerlACE::TestTarget;
 # Amount of delay (in seconds) between starting a server and a client.
 $sleeptime = $PerlACE::wait_interval_for_process_creation;
 
-my $target = PerlACE::TestTarget::create_target ($PerlACE::TestConfig);
+$target = PerlACE::TestTarget::create_target($PerlACE::TestConfig) || die "Create target failed\n";
 
 # File used to pass AMH server ior to its clients.
 # This file name is hard-coded in the server.cpp and client.cpp files
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl
index 097e06da963..a8a900d7880 100755
--- a/TAO/tests/Param_Test/run_test.pl
+++ b/TAO/tests/Param_Test/run_test.pl
@@ -86,7 +86,7 @@ foreach $type (@types) {
     }
     else
     {
-        if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) {
+        if ($target->WaitForFileTimed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) {
             print STDERR "ERROR: cannot find file <$iorfile>\n";
             $SV->Kill ();
             exit 1;
@@ -109,11 +109,11 @@ foreach $type (@types) {
         }
     }
 
-    unlink $iorfile;
+    $target->DeleteFile($iorfile);
 
     print STDERR "==== Test for $type finished ===\n";
 }
 
-unlink $iorfile;
+$target->DeleteFile($iorfile);
 
 exit $status;