dmitriy.kazimirov/inxi
1
0
Fork 0
mirror of https://github.com/smxi/inxi.git synced 2024-11-16 16:21:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

optimized cpu cache logic

Browse source
This commit is contained in:
Harald Hope 2018-09-10 16:05:48 -07:00
parent c842901804
commit eb6294f0b0
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
inxi
View file

@ -7385,17 +7385,19 @@ sub cpu_cache_dmi {
my @item = @$ref;
next if $item[0] != 7;
last if $item[0] > 7;
# skip first three row, we don't need that data
splice @item, 0, 3;
($id,$amount) = ('',0);
foreach my $value (@item){
# some cpus only show Socket Designation: Internal cache
if (!$id && $value =~ /^Configuration:.* Level.*([1-3])\b/){
$id = "L$1";
}
# variants: L3 - Cache; L3 Cache; L3-cache
if ($value =~ /^Socket Designation: (L[1-3])\b/){
$id = $1;
}
if ($value =~ /^Installed Size: (.*B)$/){
# some cpus only show Socket Designation: Internal cache
elsif (!$id && $value =~ /^Configuration:.* Level.*([1-3])\b/){
$id = "L$1";
}
elsif ($id && $value =~ /^Installed Size: (.*B)$/){
$amount = main::translate_size($1);
}
if ($id && $amount){