From c2ef4a362e13249d8a774c7c5b7d0a8ab5df7d11 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Feb 2008 10:43:55 +0000
Subject: - do not assign a mount point to partitions of type "Compaq
 diagnostics"

---
 perl-install/NEWS              | 3 +++
 perl-install/fs/mount_point.pm | 2 +-
 perl-install/install/NEWS      | 2 ++
 3 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 7fa5f565a..18ca99294 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- harddrake:
+  o do not assign a mount point to partitions of type "Compaq diagnostics"
+
 Version 10.6.23 - 25 February 2008
 
 - drakboot:
diff --git a/perl-install/fs/mount_point.pm b/perl-install/fs/mount_point.pm
index b21a37b62..608e3062e 100644
--- a/perl-install/fs/mount_point.pm
+++ b/perl-install/fs/mount_point.pm
@@ -47,7 +47,7 @@ sub suggest_mount_points {
 sub suggest_mount_points_always {
     my ($fstab) = @_;
 
-    my @win = grep { isFat_or_NTFS($_) && maybeFormatted($_) && !$_->{is_removable} } @$fstab;
+    my @win = grep { isFat_or_NTFS($_) && maybeFormatted($_) && !$_->{is_removable} && $_->{pt_type} != 0x12 } @$fstab;
     log::l("win parts: ", join ",", map { $_->{device} } @win) if @win;
     if (@win == 1) {
 	#- Suggest /boot/efi on ia64.
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index fc516cb38..c211370a3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- do not assign a mount point to partitions of type "Compaq diagnostics"
+
 Version 10.6.23 - 25 February 2008
 
 - adapt to cooker:
-- 
cgit v1.2.1