1 files changed, 0 insertions, 75 deletions
diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm
deleted file mode 100644
index 08ab4fa22f2..00000000000
--- a/bin/PerlACE/Run_Test.pm
+++ /dev/null
@@ -1,75 +0,0 @@
-# $Id$
-
-# This module contains a few miscellanous functions and some
-# startup ARGV processing that is used by all tests.
-
-use PerlACE::Process;
-use PerlACE::ConfigList;
-
-package PerlACE;
-use Cwd;
-
-sub LocalFile ($)
-{
-    my $file = shift;
-
-    my $newfile = getcwd () . '/' . $file;
-
-    if ($^O eq "MSWin32") {
-        $newfile =~ s/\//\\/g;
-    }
-
-    return $newfile;
-}
-
-
-# Returns a unique id, uid for unix, last digit of IP for NT
-sub uniqueid
-{
-  if ($^O eq "MSWin32")
-  {
-    my $uid = 1;
-
-    open (IPNUM, "ipconfig|") || die "Can't run ipconfig: $!\n";
-
-    while (<IPNUM>)
-    {
-      if (/Address/)
-      {
-        $uid = (split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/))[4];
-      }
-    }
-
-    close IPNUM;
-
-    return $uid;
-  }
-  else
-  {
-    return getpwnam (getlogin ());
-  }
-}
-
-# Waits until a file exists
-sub waitforfile
-{
-  local($file) = @_;
-  sleep 1 while (!(-e $file && -s $file));
-}
-
-sub waitforfile_timed
-{
-  my $file = shift;
-  my $maxtime = shift;
-  while ($maxtime-- != 0) {
-    if (-e $file && -s $file) {
-      return 0;
-    }
-    sleep 1;
-  }
-  return -1;
-}
-
-$sleeptime = 5;
-
-1;