chop;
# Skip comments.
- next if ($_ =~ /\#/);
+ next if ($_ =~ /^#/);
($var, $val) = split /=/, $_, 2;
if ($var)
return $status;
}
+sub number_cpu_cores() {
+ open my $cpuinfo, "/proc/cpuinfo" or die "Can't open cpuinfo: $!\n";
+ my $cores = scalar (map /^processor/, <$cpuinfo>);
+ close $cpuinfo;
+
+ return $cores;
+}
1;