diff options
| author | Pascal Terjan <pterjan@mandriva.org> | 2009-04-15 17:18:22 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mandriva.org> | 2009-04-15 17:18:22 +0000 |
| commit | def65890962642ded5d4a45c0c3eef8379c80a29 (patch) | |
| tree | 4d1b273955db016f8b70a332871f8a8f1427fdb0 /perl-install/bootloader.pm | |
| parent | f3389a276297e29d8d6595073436692e45cb0939 (diff) | |
| download | drakx-backup-do-not-use-def65890962642ded5d4a45c0c3eef8379c80a29.tar drakx-backup-do-not-use-def65890962642ded5d4a45c0c3eef8379c80a29.tar.gz drakx-backup-do-not-use-def65890962642ded5d4a45c0c3eef8379c80a29.tar.bz2 drakx-backup-do-not-use-def65890962642ded5d4a45c0c3eef8379c80a29.tar.xz drakx-backup-do-not-use-def65890962642ded5d4a45c0c3eef8379c80a29.zip | |
windows boot partition is the active one (#49483)
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index b6dcb9770..cbdd7be3e 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1065,13 +1065,7 @@ 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 { $_->{active} } grep { isFat_or_NTFS($_) && member(fs::type::fs_type_from_magic($_), 'vfat', 'ntfs', 'ntfs-3g') && fs::type::part2type_name($_) !~ /^Hidden/; } |