From e92c823c8d57e9c344a7a7a288c5d5247b29c6e2 Mon Sep 17 00:00:00 2001
From: "lenz@mysql.com" <>
Date: Thu, 25 Sep 2003 23:12:24 +0200
Subject:  - 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()"

---
 sql-bench/test-create.sh | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'sql-bench/test-create.sh')

diff --git a/sql-bench/test-create.sh b/sql-bench/test-create.sh
index 1e7d3841bb5..8188b47f587 100644
--- a/sql-bench/test-create.sh
+++ b/sql-bench/test-create.sh
@@ -30,13 +30,14 @@
 
 ##################### Standard benchmark inits ##############################
 
+use Cwd;
 use DBI;
 use Benchmark;
 
 $opt_loop_count=10000; # Change this to make test harder/easier
 # This is the default value for the amount of tables used in this test.
 
-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";
 
 $create_loop_count=$opt_loop_count;
-- 
cgit v1.2.1