diff options
Diffstat (limited to 'bin/PerlACE/Run_Test.pm')
-rw-r--r-- | bin/PerlACE/Run_Test.pm | 25 |
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; |