From 054f769d2c88c496e2673a3244a7389f05324bf5 Mon Sep 17 00:00:00 2001
From: slef <slef>
Date: Mon, 27 Oct 2003 17:39:41 +0000
Subject: [PATCH] Timed backups in installfiles

---
 misc/Install.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 3f84aeecb3..a685d7fbd2 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -1518,15 +1518,14 @@ $messages->{'CopyingFiles'}->{en}="Copying %s to %s.\n";
 sub installfiles {
 
 	#MJR: preserve old files, just in case
-	#FIXME: use dated backups
 	sub neatcopy {
 		my $desc = shift;
 		my $src = shift;
 		my $tgt = shift;
 		
-		if (-d $tgt) {
-    		print getmessage('CopyingFiles', ["old ".$desc,$tgt.".old"]);
-			startsysout;
+		if (-e $tgt) {
+    		print getmessage('CopyingFiles', ["old ".$desc,$tgt.strftime("%Y%m%d%H%M",localtime())]);
+			startsysout();
 			system("mv ".$tgt." ".$tgt.".old");
 		}
 
-- 
2.39.5