Updated VersionCheck and Pingback to work on Windows

This commit is contained in:
Brian Fraser
2012-09-20 10:54:55 -03:00
parent 2a220c6677
commit 787718121f
2 changed files with 6 additions and 5 deletions

View File

@@ -125,12 +125,13 @@ sub valid_item {
sub get_os_version {
my ($self) = @_;
if ( $OSNAME eq 'MSWin32' ) {
require Win32;
return Win32::GetOSDisplayName();
}
chomp(my $platform = `uname -s`);
PTDEBUG && _d('platform:', $platform);
if ( !$platform ) {
return $OSNAME if $OSNAME ne 'MSWin32';
return Win32::GetOSDisplayName();
}
return $OSNAME unless $platform;
chomp(my $lsb_release