summaryrefslogtreecommitdiffstats
path: root/mysql-test/include/truncate_file.inc
blob: fe88cb05bd92fad1ad3d4029c28c323509bf510a (plain)
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