From af039e501986cc05461a3f1834dfe0310a264f3b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 15 May 2007 07:51:54 +0000 Subject: small fix on previous commit --- perl-install/standalone/bootloader-config | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index 4010b1c73..f9b796fc9 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -90,7 +90,8 @@ sub remove_kernel() { if (!$bootloader) { #- removing the initrd for weird configs where no mdv bootloader is configured my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n"; - unlink bootloader::kernel_str2initrd_long($kernel_str); + my $initrd_long = bootloader::kernel_str2initrd_long($kernel_str); + unlink "/boot/$initrd_long"; return; } -- cgit v1.2.1