From 0f2062a43fc7c703deb84874426fb2af94a5ec6e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Sep 2001 09:41:43 +0000
Subject: (choosePartitionsToFormat): do not propose to propose already
 formatted fat partitions

---
 perl-install/install_steps_interactive.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 0ca76a230..3bf701909 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -370,8 +370,10 @@ sub choosePartitionsToFormat {
 
     $o->SUPER::choosePartitionsToFormat($fstab);
 
-    my @l = grep { !$_->{isMounted} && $_->{mntpoint} && (!isSwap($_) || $::expert) &&
-		    (!isOtherAvailableFS($_) || $::expert || $_->{toFormat})
+    my @l = grep { !$_->{isMounted} && $_->{mntpoint} && 
+		   (!isSwap($_) || $::expert) &&
+		   (!isFat($_) || $_->{notFormatted} || $::expert) &&
+		   (!isOtherAvailableFS($_) || $::expert || $_->{toFormat})
 	       } @$fstab;
     $_->{toFormat} = 1 foreach grep { isSwap($_) && !$::expert } @$fstab;
 
-- 
cgit v1.2.1