mysql-test/include/truncate_file.inc


1
2
3
4
5
6
7
8
9
10
11

# truncate a giving file, all contents of the file are be cleared

if (!$TRUNCATE_FILE)
{
  die TRUNCATE_FILE is not set;
}

perl;
open FILE, '>', $ENV{TRUNCATE_FILE} or die "open(>$ENV{TRUNCATE_FILE}): $!";
close FILE;
EOF