diff options
| author | lenz@mysql.com <> | 2003-09-25 23:12:24 +0200 |
|---|---|---|
| committer | lenz@mysql.com <> | 2003-09-25 23:12:24 +0200 |
| commit | e92c823c8d57e9c344a7a7a288c5d5247b29c6e2 (patch) | |
| tree | af2612c92998500db3b06f89f20ab16c1ac57a4a /sql-bench/test-connect.sh | |
| parent | e4c7496c141ad9990a42121bcdd53eb22e90df2f (diff) | |
| download | mariadb-git-e92c823c8d57e9c344a7a7a288c5d5247b29c6e2.tar.gz | |
- 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()"
Diffstat (limited to 'sql-bench/test-connect.sh')
| -rw-r--r-- | sql-bench/test-connect.sh | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sql-bench/test-connect.sh b/sql-bench/test-connect.sh index 0f1aca5aaa7..b7a360cac38 100644 --- a/sql-bench/test-connect.sh +++ b/sql-bench/test-connect.sh @@ -24,6 +24,7 @@ # by using option --loop_value='what_ever_you_like'. ##################### Standard benchmark inits ############################## +use Cwd; use DBI; use Benchmark; @@ -31,7 +32,7 @@ $opt_loop_count=100000; # Change this to make test harder/easier $str_length=65000; # This is the length of blob strings in PART:5 $max_test=20; # How many times to test if the server is busy -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"; # This is the length of blob strings in PART:5 |