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

1 files changed, 3 insertions, 1 deletions

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;