mirror/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-01-31 11:01:52 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Always set bogomips unless already set

Browse source 
Return undef only in case kstat works
Cpus reported once, but with 'cpu_count' set to the actual number
This commit is contained in:
msvensson@pilot.(none) 2008-05-04 16:35:16 +02:00
parent e088f111e9
commit 6cef6279c2
1 changed files with 23 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
mysql-test/lib/My/SysInfo.pm
View file

@ -21,7 +21,7 @@ use strict;
use Carp;
use My::Platform;
use constant DEFAULT_BOGO_MIPS => 2000;
sub _cpuinfo {
my ($self)= @_;
@ -59,7 +59,14 @@ sub _cpuinfo {
}
}
push(@{$self->{cpus}}, $cpuinfo);
# Make sure bogomips is set to some value
$cpuinfo->{bogomips} |= DEFAULT_BOGO_MIPS;
# Cpus reported once, but with 'cpu_count' set to the actual number
my $cpu_count= $cpuinfo->{cpu_count} || 1;
for(1..$cpu_count){
push(@{$self->{cpus}}, $cpuinfo);
}
}
$F= undef; # Close file
return $self;
@ -71,7 +78,7 @@ sub _kstat {
while (1){
my $instance_num= $self->{cpus} ? @{$self->{cpus}} : 0;
my $list= `kstat -p -m cpu_info -i $instance_num`;
my @lines= split('\n', $list) or return undef;
my @lines= split('\n', $list) or last; # Break loop
my $cpuinfo= {};
foreach my $line (@lines)
@ -82,14 +89,19 @@ sub _kstat {
$cpuinfo->{$statistic}= $value;
}
# Default value, the actual cpu values can be used to decrease it
# Default value, the actual cpu values can be used to decrease this
# on slower cpus
$cpuinfo->{bogomips}= 2000;
$cpuinfo->{bogomips}= DEFAULT_BOGO_MIPS;
push(@{$self->{cpus}}, $cpuinfo);
}
return $self;
# At least one cpu should have been found
# if this method worked
if ( $self->{cpus} ) {
return $self;
}
return undef;
}
@ -122,7 +134,11 @@ sub new {
}
# Push a dummy cpu
push(@{$self->{cpus}}, {bogomips => 2000, model_name => "unknown"});
push(@{$self->{cpus}},
{
bogomips => DEFAULT_BOGO_MIPS,
model_name => "unknown",
});
return $self;
}