Коммит
b1e639e81e
@ -316,7 +316,7 @@ sub mca_process_framework {
|
||||
$mca_found->{$pname}->{$framework}->{found} = 1;
|
||||
opendir(DIR, $dir) ||
|
||||
my_die "Can't open $dir directory";
|
||||
foreach my $d (readdir(DIR)) {
|
||||
foreach my $d (sort(readdir(DIR))) {
|
||||
# Skip any non-directory, "base", or any dir that
|
||||
# begins with "."
|
||||
next
|
||||
@ -628,7 +628,7 @@ sub mpiext_run_global {
|
||||
my $dir = "$topdir/$ext_prefix";
|
||||
opendir(DIR, $dir) ||
|
||||
my_die "Can't open $dir directory";
|
||||
foreach my $d (readdir(DIR)) {
|
||||
foreach my $d (sort(readdir(DIR))) {
|
||||
# Skip any non-directory, "base", or any dir that begins with "."
|
||||
next
|
||||
if (! -d "$dir/$d" || $d eq "base" || substr($d, 0, 1) eq ".");
|
||||
@ -715,7 +715,7 @@ sub mpicontrib_run_global {
|
||||
my $dir = "$topdir/$contrib_prefix";
|
||||
opendir(DIR, $dir) ||
|
||||
my_die "Can't open $dir directory";
|
||||
foreach my $d (readdir(DIR)) {
|
||||
foreach my $d (sort(readdir(DIR))) {
|
||||
# Skip any non-directory, "base", or any dir that begins with "."
|
||||
next
|
||||
if (! -d "$dir/$d" || $d eq "base" || substr($d, 0, 1) eq ".");
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user