Avoid adding blank lines when purging tabs

Ralph Castain · Ralph Castain · commit 0c8359b0b9ba · 2016-11-22T09:38:37.000-08:00
Signed-off-by: Ralph Castain &lt;rhc@open-mpi.org&gt;
diff --git a/contrib/purge-tab-indents.pl b/contrib/purge-tab-indents.pl
@@ -89,7 +89,7 @@ sub quiet_print {
 
     my @expanded_lines = expand(@lines_with_tabs);
     open(TEMP, ">temp.txt");
-    print TEMP join("\n",@expanded_lines),"\n";
+    print TEMP @expanded_lines;
     close(TEMP);
     system("mv temp.txt $f");
 }

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,7 @@ sub quiet_print {`
`89`	`89`
`90`	`90`	`my @expanded_lines = expand(@lines_with_tabs);`
`91`	`91`	`open(TEMP, ">temp.txt");`
`92`		`- print TEMP join("\n",@expanded_lines),"\n";`
	`92`	`+ print TEMP @expanded_lines;`
`93`	`93`	`close(TEMP);`
`94`	`94`	`system("mv temp.txt $f");`
`95`	`95`	`}`