diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 4 | ||||
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 3479de99b..c0e164210 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- bootloader-config: + o --rebuild-initrds: don't choke on kernel files which have no version in + file name (#28772) + Version 10.4.198 - 16 September 2007, by Thierry Vignaud - fix a crash diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 60e473e86..decb3a1d0 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -663,7 +663,7 @@ sub rebuild_initrds { my %done; foreach my $v (grep { $_->{initrd} } @{$bootloader->{entries}}) { - my $kernel_str = vmlinuz2kernel_str($v->{kernel_or_dev}); + my $kernel_str = vmlinuz2kernel_str($v->{kernel_or_dev}) or next; my $initrd_long = '/boot/' . kernel_str2initrd_long($kernel_str); next if $done{$initrd_long}++; |