From c555e7d62df38a839bb243347062cead77f89922 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 23 Oct 2000 15:40:46 +0000
Subject: added some carriage returns to please jl :)

---
 perl-install/ChangeLog        | 8 ++++++++
 perl-install/install_steps.pm | 6 ++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 5a8c2ac30..c1cf30444 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,11 @@
+2000-10-19  DrakX <install@linux-mandrake.com>
+
+	* snapshot uploaded
+
+2000-10-17  DrakX <install@linux-mandrake.com>
+
+	* snapshot uploaded
+
 2000-10-16  Pablo Saratxaga <pablo@mandrakesoft.com>
 
 	* standalone/keyboarddrake,keyboard.pm: corrected BackSpace setting 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index bc93ae6ba..6efde2f53 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -337,13 +337,15 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK!
 	#- important files and restore them after.
 	foreach (@{$o->{toSave} || []}) {
 	    if (-e "$o->{prefix}/$_") {
-		unlink "$o->{prefix}/$_.mdkgisave"; eval { commands::cp("$o->{prefix}/$_", "$o->{prefix}/$_.mdkgisave") };
+		unlink "$o->{prefix}/$_.mdkgisave"; 
+		eval { commands::cp("$o->{prefix}/$_", "$o->{prefix}/$_.mdkgisave") };
 	    }
 	}
 	pkgs::remove($o->{prefix}, $o->{toRemove});
 	foreach (@{$o->{toSave} || []}) {
 	    if (-e "$o->{prefix}/$_.mdkgisave") {
-		unlink "$o->{prefix}/$_"; rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_";
+		unlink "$o->{prefix}/$_"; 
+		rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_";
 	    }
 	}
 	$o->{toSave} = [];
-- 
cgit v1.2.1