diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:34:46 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-12-07 11:34:46 +0000 |
commit | 2bd074d0ad9963ae54a94d3945ff99334ecf93ed (patch) | |
tree | 581227cffa9fa5468b1d179851853f0e1446f5ca /perl-install | |
parent | 8085f8f1c3201706e990b1927f29456f30c4e1a7 (diff) | |
download | drakx-backup-do-not-use-2bd074d0ad9963ae54a94d3945ff99334ecf93ed.tar drakx-backup-do-not-use-2bd074d0ad9963ae54a94d3945ff99334ecf93ed.tar.gz drakx-backup-do-not-use-2bd074d0ad9963ae54a94d3945ff99334ecf93ed.tar.bz2 drakx-backup-do-not-use-2bd074d0ad9963ae54a94d3945ff99334ecf93ed.tar.xz drakx-backup-do-not-use-2bd074d0ad9963ae54a94d3945ff99334ecf93ed.zip |
(read_grub_menu_lst) kill a very old perl_checker warning
warning introduced in commit r256501 by pterjan on Apr 15 2009:
"keep grub entries which refer to unknown devices verbatim instead of
crashing (#48728)"
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/bootloader.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index d791f97ad..0d79777d5 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -384,7 +384,7 @@ sub read_grub_menu_lst { $e->{append} = join(' ', grep { !/^BOOT_IMAGE=/ } split(' ', $e->{append})); $e->{root} = $1 if $e->{append} =~ s/root=(\S*)\s*//; eval { $e->{kernel_or_dev} = grub2file($kernel, $grub2dev, $fstab, $e) }; - $e->{keep_verbatim} = 1 unless $e->{kernel_or_dev} && dirname($e->{kernel_or_dev}) eq '/boot'; + $e->{keep_verbatim} = 1 if !$e->{kernel_or_dev} || dirname($e->{kernel_or_dev}) ne '/boot'; } my ($vga, $other) = partition { /^vga=/ } split(' ', $e->{append}); if (@$vga) { |