From eea87e8c23492b04adce22ae7c812978dd2cc076 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 7 Sep 2002 23:53:35 +0000 Subject: fix log --- perl-install/install_steps.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index eeaa95f2e..357600b6a 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -792,12 +792,12 @@ 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 last; - log::l("renaming /boot/$e->{kernel_or_dev} entry by $v"); + log::l("renaming $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"); + log::l("renaming $e->{initrd} entry by $v"); $e->{initrd} = $v; } } -- cgit v1.2.1