mirror of
https://github.com/MariaDB/server.git
synced 2026-05-15 11:27:39 +02:00
- Improved portability of the sql-bench Perl scripts by replacing
the calls of external programs "uname" and "pwd" with Perl builtin functions "cwd()" and "POSIX::uname()"
This commit is contained in:
parent
e4c7496c14
commit
e92c823c8d
21 changed files with 46 additions and 56 deletions
|
|
@ -24,12 +24,13 @@
|
|||
# - skip a couple of the tests in Q4 that Oracle doesn't understand
|
||||
################### Standard benchmark inits ##############################
|
||||
|
||||
use Cwd;
|
||||
use DBI;
|
||||
use Benchmark;
|
||||
|
||||
$opt_loop_count=100; # Run selects this many times
|
||||
|
||||
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";
|
||||
|
||||
if ($opt_small_test)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue