1 files changed, 0 insertions, 72 deletions
diff --git a/TAO/examples/POA/TIE/run_test.pl b/TAO/examples/POA/TIE/run_test.pl
deleted file mode 100755
index a29847cd8a2..00000000000
--- a/TAO/examples/POA/TIE/run_test.pl
+++ /dev/null
@@ -1,72 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-unshift @INC, '../../../../bin';
-require ACEutils;
-
-$status = 0;
-
-$iorfile = "ior";
-
-$iorfile_1 = $iorfile."_1";
-$iorfile_2 = $iorfile."_2";
-$iorfile_3 = $iorfile."_3";
-$iorfile_4 = $iorfile."_4";
-$iorfile_5 = $iorfile."_5";
-$iorfile_6 = $iorfile."_6";
-
-unlink $iorfile_1;
-unlink $iorfile_2;
-unlink $iorfile_3;
-unlink $iorfile_4;
-unlink $iorfile_5;
-unlink $iorfile_6;
-
-$SV = Process::Create ($EXEPREFIX."server$EXE_EXT");
-
-# In this example all the files are written out at the same time. So  make a
-# check only for the first file
-if (ACE::waitforfile_timed ($iorfile_1, 5) == -1) {
-  print STDERR "ERROR: cannot find file <$iorfile>\n";
-  $SV->Kill (); $SV->TimedWait (1);
-  exit 1;
-}
-
-$client  = Process::Create ($EXEPREFIX."client$EXE_EXT",
-                            "-a file://$iorfile_1 -b file://$iorfile_2 -c file://$iorfile_3 -d file://$iorfile_4");
-
-if ($client->TimedWait (60) == -1) {
-  print STDERR "ERROR: client timedout\n";
-  $status = 1;
-  $client->Kill (); $client->TimedWait (1);
-}
-
-if (ACE::waitforfile_timed ($iorfile_5,1) == 0) {
-  $client  = Process::Create ($EXEPREFIX."client$EXE_EXT",
-                              " -e file://$iorfile_5 -f file://$iorfile_6");
-
-  if ($client->TimedWait (60) == -1) {
-    print STDERR "ERROR: client timedout\n";
-    $status = 1;
-    $client->Kill (); $client->TimedWait (1);
-  }
-}
-
-unlink $iorfile_1;
-unlink $iorfile_2;
-unlink $iorfile_3;
-unlink $iorfile_4;
-unlink $iorfile_5;
-unlink $iorfile_6;
-
-$SV->Terminate (); if ($SV->TimedWait (5) == -1) {
-  print STDERR "ERROR: couldn't terminate server nicely\n";
-  $status = 1;
-  $SV->Kill (); $SV->TimedWait (1);
-}
-
-exit $status;