diff options
Diffstat (limited to 'sql-bench/bench-init.pl.sh')
| -rw-r--r-- | sql-bench/bench-init.pl.sh | 21 |
1 files changed, 3 insertions, 18 deletions
diff --git a/sql-bench/bench-init.pl.sh b/sql-bench/bench-init.pl.sh index b02f5034637..1ac5f29723b 100644 --- a/sql-bench/bench-init.pl.sh +++ b/sql-bench/bench-init.pl.sh @@ -33,6 +33,7 @@ $benchmark_version="2.15"; use Getopt::Long; +use POSIX; require "$pwd/server-cfg" || die "Can't read Configuration file: $!\n"; @@ -417,24 +418,8 @@ sub machine_part sub machine { - $name= `uname -s -r -m`; - if ($?) - { - $name= `uname -s -m`; - } - if ($?) - { - $name= `uname -s`; - } - if ($?) - { - $name= `uname`; - } - if ($?) - { - $name="unknown"; - } - chomp($name); $name =~ s/[\n\r]//g; + my @name = POSIX::uname(); + my $name= $name[0] . " " . $name[2] . " " . $name[4]; return $name; } |