1 files changed, 0 insertions, 39 deletions
diff --git a/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl b/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl
deleted file mode 100755
index e62c15063a8..00000000000
--- a/TAO/tests/Cubit/TAO/DII_Cubit/run_test.pl
+++ /dev/null
@@ -1,39 +0,0 @@
-#$Id$
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-unshift @INC, '../../../../../bin';
-require Process;
-
-if ($^O eq "MSWin32")
-{
-  system ("ipconfig | find \"Address\">ipnum");
-
-  open (IPNUM, "ipnum");
-
-  read (IPNUM, $line, 80);
-
-  ($junk, $ip1, $ip2, $ip3, $ip4) = split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/, $line);
-
-  close IPNUM;
-
-  system ("del /q ipnum");
-
-  $uid = $ip4;
-}
-else
-{
-  $uid = getpwnam (getlogin ());
-}
-
-$nsport = 20000 + $uid;
-$client_port = 0;
-$server_port = 0;
-
-$SV = Process::Create ("..$DIR_SEPARATOR"."IDL_Cubit".$DIR_SEPARATOR."server".$Process::EXE_EXT, 
-                       "-ORBport ".$server_port." -ORBnameserviceport ".$nsport." -ORBobjrefstyle url");
-
-sleep (2);
-
-system ("client".$Process::EXE_EXT." -x -ORBnameserviceport ".$nsport." -ORBobjrefstyle url -ORBport ".$client_port );