Commit 48787ece authored by Jan Eitzinger's avatar Jan Eitzinger
Browse files

Cleanup code

Remove test and debug code
parent 0350e377
......@@ -60,13 +60,6 @@ my $SMT;
`likwid-topology -g > $DIR/topology.txt`;
my $topo = `likwid-topology -O`;
#my $topo = do {
# local $/ = undef;
# open my $fh, "<", './topo.txt'
# or die "could not open tile: $!";
# <$fh>;
#};
foreach my $ln (split("\n", $topo)) {
if ( $ln =~ /^CPU name:/ ) {
my @fields = split(",", $ln);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment