From 668b0ccf0fb538484b0ffd6c40e2582c64d065bc Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Tue, 13 Oct 2009 22:12:27 +0000 Subject: use initrd-2.6.30.2-xen-5mdv.img instead of initrd-xen-2.6.30.2-xen-5mdv.img --- perl-install/bootloader.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 79bfb545a..c07fa6dc2 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -52,7 +52,7 @@ sub vmlinuz2kernel_str { sub kernel_str2short_name { my ($kernel) = @_; - $kernel->{ext} =~ /^xen/ ? 'xen' : $kernel->{basename}; + $kernel->{basename}; } sub basename2initrd_basename { @@ -91,7 +91,7 @@ sub kernel_str2label { _sanitize_ver($kernel); } else { my $short_name = kernel_str2short_name($kernel); - $short_name eq 'vmlinuz' ? 'linux' : $short_name; + $kernel->{ext} =~ /^xen/ ? 'xen' : ($short_name eq 'vmlinuz' ? 'linux' : $short_name); } } -- cgit v1.2.1