ropeylog: rename old files to .bak

1 files changed, 6 insertions, 1 deletions

diff --git a/ropeylog b/ropeylog
index 325da50..b099483 100755
--- a/ropeylog
+++ b/ropeylog
@@ -358,12 +358,17 @@ sub get_page_name {
 sub print_all_reports {
 	for my $rep (@reports) {
 		my ($title, $fname, $sortfunc) = @$rep;
+
 		$fname = "$outdir/" . get_page_name($fname);
-		open my $f, ">$fname" or die $!;
+
+		open my $f, ">$fname.new" or die $!;
 		my $oldf = select $f;
 		print_report($title, $sortfunc);
 		select $oldf;
 		close $f;
+
+		rename $fname, $fname . ".bak";
+		rename $fname . ".new", $fname;
 	}
 }