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