1 files changed, 14 insertions, 18 deletions
diff --git a/TAO/tests/IDLv4/annotations/run_test.pl b/TAO/tests/IDLv4/annotations/run_test.pl
index a1cad7ce3c7..1f58b600d6b 100755
--- a/TAO/tests/IDLv4/annotations/run_test.pl
+++ b/TAO/tests/IDLv4/annotations/run_test.pl
@@ -3,29 +3,25 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     if 0;
 
 use strict;
-use Env (ACE_ROOT);
+use Env qw(ACE_ROOT);
 use lib "$ACE_ROOT/bin";
-use PerlACE::Run_Test
+use PerlACE::Run_Test;
 
-my $status = 0;
-
-my $annotest_idl = PerlDDS::create_process ("annotest_idl", "");
+my $annotest_idl = new PerlACE::Process("annotest_idl", "");
 print $annotest_idl->CommandLine ();
 $annotest_idl->Spawn ();
 my $annotest_idl_result = $annotest_idl->WaitKill (10);
-if ($annotest_idl_result > 0)
-  {
-    print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n";
-  }
-$status = 1 if $annotest_idl_result;
+if ($annotest_idl_result > 0) {
+  print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n";
+}
+
+my $status = 1 if $annotest_idl_result;
 
-if ($status)
-  {
-    print STDERR "test FAILED";
-  }
-else
-  {
-    print "test PASSED";
-  }
+if ($status) {
+  print STDERR "test FAILED";
+}
+else {
+  print "test PASSED";
+}
 
 exit $status