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

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 9b0609e29969f71293140fe0c854f0e5e0787307..88a8b7f7fd32cd4a79da3e8c540292c64e6942d3 100755 (executable)
--- 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;