#!/usr/bin/env perl

use FindBin;
use lib $FindBin::Bin;
use Run qw(ret run);
use strict;

my $preset_tasks = $ENV{'CHPL_TASKS'};
my $tasks;

if ($preset_tasks eq "") {
    my $localeModel = run("localeModel");
    if ($localeModel eq "numa") {
        $tasks = "qthreads";
    } else {
        $tasks = "fifo";
    }
} else {
    $tasks = $preset_tasks;
}

ret($tasks);
print "$tasks\n" unless caller;
