diff --git a/logging.pm b/logging.pm index 66de890..3ae951c 100644 --- a/logging.pm +++ b/logging.pm @@ -227,6 +227,18 @@ sub get_default_vars (;$) $$vars{arch} = $arch; $$vars{xarch} = $xarch; my ($osver, $osmajor, $osminor, $osbuild) = Win32::GetOSVersion(); + if ($osmajor == 5 && $$osminor == 1) { + $$vars{os} = 'xp'; + } + elsif ($osmajor == 6 && $$osminor == 1) { + $$vars{os} = '7'; + } + elsif ($osmajor == 10) { + $$vars{os} = '10'; + } + else { + $$vars{os} = 'unknown'; + } $$vars{osversion} = $osmajor.'.'.$osminor; $$vars{osmajor} = $osmajor; $$vars{osminor} = $osminor;