From: Marc Hoersken <info@marc-hoersken.de>
Date: Thu, 2 Apr 2020 16:33:22 +0000 (+0200)
Subject: runtests.pl: log host OS as detected by Perl environment
X-Git-Tag: curl-7_70_0~149
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b023008e7b3d80c3b7ab0c44eb61aaee92d2957d;p=thirdparty%2Fcurl.git

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

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 9b0609e299..88a8b7f7fd 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;