mirror/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2026-05-14 19:07:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

- Improved portability of the sql-bench Perl scripts by replacing

Browse source 
the calls of external programs "uname" and "pwd" with Perl builtin
   functions "cwd()" and "POSIX::uname()"
This commit is contained in:
lenz@mysql.com 2003-09-25 23:12:24 +02:00
commit e92c823c8d
21 changed files with 46 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

3
sql-bench/innotest1.sh
View file

@ -5,12 +5,13 @@
#
############################################################################
use Cwd;
use DBI;
use Benchmark;
$opt_loop_count = 100000;
chomp($pwd = `pwd`); $pwd = "." if ($pwd eq '');
$pwd = cwd(); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
print "Innotest1: MySQL/InnoDB stress test in Perl\n";