From b023008e7b3d80c3b7ab0c44eb61aaee92d2957d Mon Sep 17 00:00:00 2001
From: Marc Hoersken <info@marc-hoersken.de>
Date: Thu, 2 Apr 2020 18:33:22 +0200
Subject: runtests.pl: log host OS as detected by Perl environment

---
 tests/runtests.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 9b0609e29..88a8b7f7f 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -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;
-- 
cgit v1.2.3