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