From 40182fa3fa29554a2e305db9a5c4a7deeb1399d8 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Sat, 31 Oct 2026 00:36:39 -0400
Subject: ropeylog: rename old files to .bak

---
 ropeylog | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
 	}
 }
 
-- 
cgit v1.2.3