diff options
| author | Marc Hoersken <info@marc-hoersken.de> | 2020-04-02 18:33:22 +0200 |
|---|---|---|
| committer | Marc Hoersken <info@marc-hoersken.de> | 2020-04-02 18:33:22 +0200 |
| commit | b023008e7b3d80c3b7ab0c44eb61aaee92d2957d (patch) | |
| tree | 58eb89a93fd2da9c3aecbeaf8b765155462864f1 /tests/runtests.pl | |
| parent | 7208a989b79604a78c9bb7dbd8a4dc3e98b5ca0f (diff) | |
| download | gnurl-b023008e7b3d80c3b7ab0c44eb61aaee92d2957d.tar.gz gnurl-b023008e7b3d80c3b7ab0c44eb61aaee92d2957d.tar.bz2 gnurl-b023008e7b3d80c3b7ab0c44eb61aaee92d2957d.zip | |
runtests.pl: log host OS as detected by Perl environment
Diffstat (limited to 'tests/runtests.pl')
| -rwxr-xr-x | tests/runtests.pl | 4 |
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; |