From fcc4ef31243b9e51adb718862d03762221bb37c2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Dec 2004 19:34:44 +0000
Subject: don't allow partition types we don't know how to format in
 {partitions} for auto_installs (eg of bad type: ntfs)

---
 perl-install/fs/format.pm   | 5 +++++
 perl-install/install_any.pm | 6 +++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 3b04bba56..bbeeed2f0 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -26,6 +26,11 @@ sub package_needed_for_partition_type {
     $l->[0];
 }
 
+sub known_type {
+    my ($part) = @_;
+    to_bool($cmds{$part->{fs_type}});
+}
+
 sub check_package_is_installed {
     my ($do_pkgs, $fs_type) = @_;
 
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0bd973694..ea9e8fe9d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1002,7 +1002,11 @@ sub g_auto_install {
     $o->{default_packages} = pkgs::selected_leaves($::o->{packages});
 
     my @fields = qw(mntpoint fs_type size);
-    $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ];
+    $o->{partitions} = [ map { 
+	my %l; @l{@fields} = @$_{@fields}; \%l;
+    } grep { 
+	$_->{mntpoint} && fs::format::known_type($_);
+    } @{$::o->{fstab}} ];
     
     exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(locale authentication mouse netc timezone superuser intf keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe netcnx useSupermount autoExitInstall X services); #- TODO modules bootloader 
 
-- 
cgit v1.2.1