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/NEWS | 2 ++ perl-install/bootloader.pm | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index b5ec4d1dd..8814ac737 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -3,6 +3,8 @@ o reduce drawings height o fix windows resize width - use UTF-8 for zh_TW (#53976) +- bootloader: + o use initrd-2.6.30.2-xen-5mdv.img instead of initrd-xen-2.6.30.2-xen-5mdv.img Version 12.64 - 12 October 2009 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