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;
}