Cleanup code

Remove test and debug code
This commit is contained in:
Jan Eitzinger
2021-02-08 13:50:35 +01:00
parent 0350e37787
commit 48787ece85

View File

@@ -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);