Fix issue for a non gpu system

This commit is contained in:
Jan Eitzinger 2022-10-18 07:32:34 +02:00
parent 8227f904f8
commit 954236bd8e

View File

@ -1,10 +1,12 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
my %INFO;
my %DOMAINS;
my $SMT;
my $numMemoryDomains;
$DOMAINS{socket} = [];
@ -198,8 +200,11 @@ END
$INFO{gpus} .= join(",\n",@gpuStr);
$INFO{gpus} .= "]\n";
} else {
$INFO{gpus} = '';
}
print <<"END";
{
"name": "<FILL IN>",
@ -219,10 +224,10 @@ print <<"END";
"memoryDomain": [
$INFO{memoryDomains}
],
$INFO{gpus}
"core": [
$INFO{cores}
$INFO{cores}
]
$INFO{gpus}
}
}
END