From 5999898cb22f35cfadbea9df40ee82e622be4519 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 31 Mar 2000 11:52:06 +0000 Subject: *** empty log message *** --- perl-install/install_steps.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b22e8869a..df04546d5 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -2,6 +2,7 @@ package install_steps; use diagnostics; use strict; +use vars qw(@filesToSaveForUpgrade); #-###################################################################################### #- misc imports @@ -23,7 +24,7 @@ use network; use any; use fs; -my @filesToSaveForUpgrade = qw( +@filesToSaveForUpgrade = qw( /etc/ld.so.conf /etc/fstab /etc/hosts /etc/conf.modules ); @@ -209,6 +210,7 @@ sub beforeInstallPackages { fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount}); network::add2hosts("$o->{prefix}/etc/hosts", "localhost.localdomain", "127.0.0.1"); + require pkgs; pkgs::init_db($o->{prefix}, $o->{isUpgrade}); } @@ -344,13 +346,11 @@ GridHeight=70 } #- move some file after an upgrade that may be seriously annoying. + #- and rename saved files to .mdkgiorig. if ($o->{isUpgrade}) { log::l("moving previous desktop files that have been updated to Trash of each user"); install_any::move_desktop_file($o->{prefix}); - } - #- rename saved files to .mdkgiorig. - if ($o->{isUpgrade}) { foreach (@filesToSaveForUpgrade) { if (-e "$o->{prefix}$_.mdkgisave") { unlink "$o->{prefix}$_.mdkgiorig"; rename "$o->{prefix}/$_.mdkgisave", "$o->{prefix}/$_.mdkgiorig"; @@ -461,7 +461,7 @@ sub installCrypto { # } # } } - pkgs::install($o->{prefix}, $o->{isUpgrade}, [ values %$packages ]); + pkgs::install($o->{prefix}, $o->{isUpgrade}, [ values %$packages ]); #- TODO } #------------------------------------------------------------------------------ -- cgit v1.2.1