Add THREADS env var to control number of threads

This commit is contained in:
Robert Lanyi 2020-03-21 18:44:10 +01:00
parent 245dcd591a
commit 37a7633ded

View File

@ -44,6 +44,11 @@ my $i :shared = 0;
my $cpus = do { local @ARGV='/proc/cpuinfo'; grep /^processor\s+:/, <>;}; my $cpus = do { local @ARGV='/proc/cpuinfo'; grep /^processor\s+:/, <>;};
my $num_workers = $cpus / 2; my $num_workers = $cpus / 2;
if (($ENV{'THREADS'} =~ /^\d+$/) and ($ENV{'THREADS'} > 0)) {
$num_workers = $ENV{'THREADS'};
}
print("Using " . $num_workers . " threads.\n");
my $num_work_units = scalar @rrdfiles; my $num_work_units = scalar @rrdfiles;
my $q = Thread::Queue->new(); my $q = Thread::Queue->new();