From 23fa406ed61c03679aa7c25bd94957c14d957fca Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 23 Nov 2004 12:27:39 +0000
Subject: [PATCH] fix for #862 : Upgrade does not work (from 2.2RC1 to 2.2RC2)

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

diff --git a/misc/Install.pm b/misc/Install.pm
index d7cac73d04..31f06c162c 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -283,13 +283,13 @@ Press <ENTER> to exit the installer: |;
 
 #'
 sub releasecandidatewarning {
-    my $message=getmessage('ReleaseCandidateWarning', [$newversion, $newversion]);
+    my $message=getmessage('ReleaseCandidateWarning', [$::newversion, $::newversion]);
     my $answer=showmessage($message, 'yn', 'n');
 
     if ($answer =~ /y/i) {
 	print getmessage('continuing');
     } else {
-	my $message=getmessage('WatchForReleaseAnnouncements');
+	my $message=getmessage('WatchForReleaseAnnouncements','');
 	print $message."\n";
 	exit;
     };
@@ -1624,6 +1624,7 @@ sub installfiles {
 		if (!$is_first_install && -e $tgt) {
     		print getmessage('CopyingFiles', ["old ".$desc,$tgt.strftime("%Y%m%d%H%M",localtime())]) unless ($auto_install->{NoPressEnter});
 			system("mv ".$tgt." ".$tgt.strftime("%Y%m%d%H%M",localtime()));
+			system("mkdir ".$tgt);   ##New line 
 		}
 		print getmessage('CopyingFiles', [$desc,$tgt]) unless ($auto_install->{NoPressEnter});
 		system("cp -R ".$src."/* ".$tgt);
-- 
2.39.5