From a0790831056451ed521c943851c486efb216b8e3 Mon Sep 17 00:00:00 2001 From: Thomas Roehl Date: Fri, 3 Dec 2021 15:18:29 +0100 Subject: [PATCH] Fix for xml filter script --- filters/xml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/filters/xml b/filters/xml index 8c8c5784f..6364d5c37 100755 --- a/filters/xml +++ b/filters/xml @@ -19,9 +19,9 @@ if (! -e $filename) { die "Input file does not exist!\n"; } - open INFILE,"<$filename"; $filename =~ s/\.tmp/\.$FILTERTYPE/; +$filename =~ s/\.$FILTERTYPE\.$FILTERTYPE/\.$FILTERTYPE/; open OUTFILE,">$filename"; @@ -188,7 +188,7 @@ if ($fileType eq 'topology') { for (my $i=0; $i<@cpus; $i++) { - print OUTFILE ''.$col[2+$i].''.$NL; + print OUTFILE ''.$col[2+$i].''.$NL; } print OUTFILE ''.$NL; } @@ -211,7 +211,7 @@ if ($fileType eq 'topology') { print OUTFILE ''.$unit.''.$NL; } for (my $i=0; $i<@cpus; $i++) { - print OUTFILE ''.$col[1+$i].''.$NL; + print OUTFILE ''.$col[1+$i].''.$NL; } print OUTFILE ''.$NL; }