Test get_os().

This commit is contained in:
Daniel Nichter
2012-08-08 12:53:14 -06:00
parent 5abd7f2d97
commit 5b5c75ba3b
2 changed files with 50 additions and 19 deletions

View File

@@ -146,12 +146,12 @@ sub get_os {
}
}
}
elsif ( $platform =~ m/^\w+BSD$/ ) {
chomp(my $rel = `uname -r`);
elsif ( $platform =~ m/^(BSD|Darwin)$/ ) {
my $rel = `uname -r`;
$release = "$platform $rel";
}
elsif ( $platform eq "SunOS" ) {
chomp(my $rel = `head -n1 /etc/release` || `uname -r`);
my $rel = `head -n1 /etc/release` || `uname -r`;
$release = "$platform $rel";
}