diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-01-22 09:05:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-01-22 09:05:27 +0000 |
| commit | 179fde5301ee0bd5dd05f16a5e9054de5acb7878 (patch) | |
| tree | 40fb4907dfc8353e2ee11085eb9ed5d2b14d91c0 /perl-install/bootloader.pm | |
| parent | 00c5061cc52c956258b1d16eec34a53280ed0d5b (diff) | |
| download | drakx-179fde5301ee0bd5dd05f16a5e9054de5acb7878.tar drakx-179fde5301ee0bd5dd05f16a5e9054de5acb7878.tar.gz drakx-179fde5301ee0bd5dd05f16a5e9054de5acb7878.tar.bz2 drakx-179fde5301ee0bd5dd05f16a5e9054de5acb7878.tar.xz drakx-179fde5301ee0bd5dd05f16a5e9054de5acb7878.zip | |
- do not put "windows" entry in bootloader for partitions where Windows is not
present (#8086)
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 2d182e3bb..f8b304651 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -996,6 +996,13 @@ sub suggest { } elsif (arch() !~ /ia64/) { #- search for dos (or windows) boot partition. Do not look in extended partitions! my @windows_boot_parts = + grep { + my $handle = any::inspect($_, $::prefix); + my $dir = $handle && $handle->{dir}; + my @root_files = map { lc($_) } all($dir); + log::l("found the following files on potential windows partition $_->{device}: " . join(' ', @root_files)); + intersection(\@root_files, [ "windows", "winnt" ]); + } grep { isFat_or_NTFS($_) && member(fs::type::fs_type_from_magic($_), 'vfat', 'ntfs') && fs::type::part2type_name($_) !~ /^Hidden/; } |