This commit was manufactured by cvs2svn to create branchtypecode-overhaul

'typecode-overhaul'.

1 files changed, 0 insertions, 25 deletions

diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm
index e40d0c15721..50a41484e3d 100644
--- a/bin/PerlACE/Run_Test.pm
+++ b/bin/PerlACE/Run_Test.pm
@@ -101,31 +101,6 @@ sub check_n_cleanup_files
   }
 }
 
-sub generate_test_file
-{
-  my $file = shift;
-  my $size = shift;
-
-  while ( -e $file ) {
-    $file = $file."X";
-  }
-
-  my $data = "abcdefghijklmnopqrstuvwxyz";
-  $data = $data.uc($data)."0123456789";
-
-  open( INPUT, "> $file" ) || die( "can't create input file: $file" );
-  for($i=62; $i < $size ; $i += 62 ) {
-    print INPUT $data;
-  }
-  $i -= 62;
-  if ($i < $size) {
-    print INPUT substr($data, 0, $size-$i);
-  }
-  close(INPUT);
-
-  return $file;
-}
-
 $sleeptime = 5;
 
 1;