Here is a quick and dirty patch to provide defaults (as an alternative to
crash) when it is impossible to get CPU info from /proc/cpuinfo:
--- /usr/share/perl5/ImVirt/Utils/cpuinfo.pm
+++ /tmp/cpuinfo.pm
@@ -39,22 +39,28 @@
cpuinfo_hasflags
);
our $VERSION = '0.1';
-open(HCPUINFO, procfs_getmp().'/cpuinfo') || die;
-
my %cpuinfo;
+if(open(HCPUINFO, procfs_getmp().'/cpuinfo')){
+
my $proc;
while(my $line = <HCPUINFO>) {
chomp($line);
if($line =~ /^(\w[^:]+\S)\s+: (.+)$/) {
$proc = $2 if($1 eq 'processor');
${$cpuinfo{$proc}}{$1} = $2;
}
}
close(HCPUINFO);
+}else{
+ $cpuinfo{0}={
+ 'processor' =>0,
+ 'model name'=>'UNKNOWN'
+ };
+}
ImVirt::debug(__PACKAGE__, Dumper(\%cpuinfo));
sub cpuinfo_get() {
return %cpuinfo;
}
--
Regards,
Dmitry.
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
