summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-06 14:21:26 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-06 14:21:26 +0000
commitcc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7 (patch)
treefdc3ea1a0c8929885df80852b7225f3c348cc3cf /perl-install/install_steps.pm
parentfe108560318dbdae544d30e6850177288c814066 (diff)
downloaddrakx-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar
drakx-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.gz
drakx-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.bz2
drakx-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.tar.xz
drakx-cc85e855ad2d11bddbabc9e0a4d4e41df5ff6cc7.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 930a8714a..132930ecb 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -271,6 +271,7 @@ sub choosePackages {
sub beforeInstallPackages {
my ($o) = @_;
+ log::l("before install packages");
#- save these files in case of upgrade failure.
if ($o->{isUpgrade}) {
foreach (@filesToSaveForUpgrade) {
@@ -281,20 +282,27 @@ sub beforeInstallPackages {
}
}
+ log::l("before install packages, after copy");
#- some packages need such files for proper installation.
any::writeandclean_ldsoconf($o->{prefix});
+ log::l("before install packages, after writing ld.so.conf");
$::live or fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount});
+ log::l("before install packages, after adding localhost in hosts");
network::add2hosts("$o->{prefix}/etc/hosts", "localhost.localdomain", "127.0.0.1");
+ log::l("before openning database");
require pkgs;
pkgs::init_db($o->{prefix}, $o->{isUpgrade});
+ log::l("initialized database");
}
sub pkg_install {
my ($o, @l) = @_;
+ log::l("selecting packages");
require pkgs;
pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || die "$_ rpm not found") foreach @l;
+ log::l("installing packages");
$o->installPackages;
}
@@ -671,7 +679,8 @@ sub readBootloaderConfigBeforeInstall {
foreach my $e (@{$o->{bootloader}{entries}}) {
while (my $v = readlink "$o->{prefix}/$e->{kernel_or_dev}") {
$v = "/boot/$v" if $v !~ m|^/|;
- -e "$o->{prefix}$v" or next;
+ log::l("testing for presence of file $o->{prefix}$v");
+ -e "$o->{prefix}$v" or last;
log::l("renaming /boot/$e->{kernel_or_dev} entry by $v");
$e->{kernel_or_dev} = $v;
}