runtests.pl: log host OS as detected by Perl environment

This commit is contained in:
Marc Hoersken 2020-04-02 18:33:22 +02:00
parent 7208a989b7
commit b023008e7b
No known key found for this signature in database
GPG Key ID: 61E03CBED7BC859E
1 changed files with 3 additions and 1 deletions

View File

@ -3010,6 +3010,7 @@ sub checksystem {
my $hostname=join(' ', runclientoutput("hostname"));
my $hosttype=join(' ', runclientoutput("uname -a"));
my $hostos=$^O;
logmsg ("********* System characteristics ******** \n",
"* $curl\n",
@ -3017,7 +3018,8 @@ sub checksystem {
"* Features: $feat\n",
"* Disabled: $dis\n",
"* Host: $hostname",
"* System: $hosttype");
"* System: $hosttype",
"* OS: $hostos\n");
if($has_memory_tracking && $has_threadedres) {
$has_memory_tracking = 0;