diff options
| author | Marko Mäkelä <marko.makela@mariadb.com> | 2018-01-02 21:52:46 +0200 |
|---|---|---|
| committer | Marko Mäkelä <marko.makela@mariadb.com> | 2018-01-02 21:52:46 +0200 |
| commit | 51e4650ed0644ed88cf5d542bd0cab50e7ea0343 (patch) | |
| tree | aaf73f6a77c6c1ad03473f4d664356b6f60169c9 /mysql-test/include | |
| parent | eef2bc5a5c30eef43eee035e23b87286a8dd50bd (diff) | |
| parent | 20fab71b144f85be9e2ccc145d24d257b0e9df7e (diff) | |
| download | mariadb-git-51e4650ed0644ed88cf5d542bd0cab50e7ea0343.tar.gz | |
Merge 5.5 into 10.0
Diffstat (limited to 'mysql-test/include')
| -rw-r--r-- | mysql-test/include/truncate_file.inc | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/mysql-test/include/truncate_file.inc b/mysql-test/include/truncate_file.inc index 2326d6c0b94..fe88cb05bd9 100644 --- a/mysql-test/include/truncate_file.inc +++ b/mysql-test/include/truncate_file.inc @@ -1,16 +1,11 @@ # truncate a giving file, all contents of the file are be cleared -if (!$file) +if (!$TRUNCATE_FILE) { - --echo Please assign a file name to $file!! - exit; + die TRUNCATE_FILE is not set; } -let TRUNCATE_FILE= $file; - perl; -use Env; -Env::import('TRUNCATE_FILE'); -open FILE, '>', $TRUNCATE_FILE || die "Can not open file $file"; +open FILE, '>', $ENV{TRUNCATE_FILE} or die "open(>$ENV{TRUNCATE_FILE}): $!"; close FILE; EOF |