summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-25 16:22:18 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-25 16:22:18 +0000
commit07cfbe49efa16539739dbb312ebe81ab2c81b87d (patch)
treecbad47b03620d1a267663791f7ef905c61478102 /perl-install/install_steps.pm
parent8e690ad57bb02fe2bd838aa60b80774149971047 (diff)
downloaddrakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.gz
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.bz2
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.tar.xz
drakx-07cfbe49efa16539739dbb312ebe81ab2c81b87d.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 18a188a73..39b67f512 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -682,14 +682,18 @@ sub readBootloaderConfigBeforeInstall {
#- since kernel or kernel-smp may not be upgraded, it should be checked
#- if there is a need to update existing lilo.conf entries by following
#- symlinks before kernel or other packages get installed.
+ #- update everything that could be a filename (for following symlink).
foreach my $e (@{$o->{bootloader}{entries}}) {
while (my $v = readlink "$o->{prefix}/$e->{kernel_or_dev}") {
- $v = "/boot/$v" if $v !~ m|^/|;
- log::l("testing for presence of file $o->{prefix}$v");
- -e "$o->{prefix}$v" or last;
+ $v = "/boot/$v" if $v !~ m|^/|; -e "$o->{prefix}$v" or last;
log::l("renaming /boot/$e->{kernel_or_dev} entry by $v");
$e->{kernel_or_dev} = $v;
}
+ while (my $v = readlink "$o->{prefix}/$e->{initrd}") {
+ $v = "/boot/$v" if $v !~ m|^/|; -e "$o->{prefix}$v" or last;
+ log::l("renaming /boot/$e->{initrd} entry by $v");
+ $e->{initrd} = $v;
+ }
}
}