summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/mount_point.pm2
-rw-r--r--perl-install/fs/type.pm1
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fs/mount_point.pm b/perl-install/fs/mount_point.pm
index 1edcacb7a..9c6996dc3 100644
--- a/perl-install/fs/mount_point.pm
+++ b/perl-install/fs/mount_point.pm
@@ -62,7 +62,7 @@ sub suggest_mount_points_always {
if (@ESP) {
$ESP[0]{mntpoint} = "/boot/EFI";
}
- my @win = grep { isFat_or_NTFS($_) && !$_->{isMounted} && maybeFormatted($_) && !$_->{is_removable} && $_->{pt_type} != 0x12 && !isRecovery($_) } @$fstab;
+ my @win = grep { isFat_or_NTFS($_) && !$_->{isMounted} && maybeFormatted($_) && !$_->{is_removable} && !isRecovery($_) } @$fstab;
log::l("win parts: ", join ",", map { $_->{device} } @win) if @win;
if (@win == 1) {
$win[0]{mntpoint} = "/media/windows";
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 5b9cc8804..264b89964 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -303,6 +303,7 @@ sub isApple { $_[0]{pt_type} == 0x401 && defined $_[0]{isDriver} }
sub isAppleBootstrap { $_[0]{pt_type} == 0x401 && defined $_[0]{isBoot} }
sub isRecovery {
isFat_or_NTFS($_[0]) && ($_[0]{type_name} =~ /^Hidden/ ||
+ $_->{pt_type} == 0x12 || # "Compaq diagnostics"
member($_[0]{device_LABEL} ,
# Extracted from /usr/share/hal/fdi/policy/10osvendor/20-storage-methods.fdi
# Hopefuly we'll ask to hal/udev someday