version 1.16, 2009/07/05 23:58:38
|
version 1.17, 2010/05/08 18:20:56
|
Line 55 if (-e '/etc/redhat-release') {
|
Line 55 if (-e '/etc/redhat-release') {
|
$dist = 'rhes'.$1; |
$dist = 'rhes'.$1; |
} elsif ($versionstring =~ /CentOS release (\d+)/) { |
} elsif ($versionstring =~ /CentOS release (\d+)/) { |
$dist = 'centos'.$1; |
$dist = 'centos'.$1; |
} elsif ($versionstring =~ /Scientific Linux SL release ([\d\.]+) /) { |
} elsif ($versionstring =~ /Scientific Linux SL release ([\d.]+) /) { |
$dist = 'scientific'.$1; |
my $ver = $1; |
|
$ver =~ s/\.\d+$//; |
|
$dist = 'scientific'.$ver; |
} else { |
} else { |
warn('Unable to interpret /etc/redhat-release '. |
warn('Unable to interpret /etc/redhat-release '. |
'to determine system type'); |
'to determine system type'); |