From 84518671ee8bdc8f4093f3dd5e7e7ae5df0c3866 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 1 Feb 2005 09:58:18 +0000
Subject: check the given mount points

---
 perl-install/install_steps_interactive.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e26e2538e..f905030d5 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -265,6 +265,14 @@ sub ask_mntpoint_s { #- }{}
     } else {
 	$o->ask_from_({ messages => N("Choose the mount points"),
 			interactive_help_id => 'ask_mntpoint_s',
+			callbacks => {
+			    complete => sub {
+				require diskdrake::interactive;
+				eval { 1, find_index {
+				    !diskdrake::interactive::check_mntpoint($o, $_->{mntpoint}, $_, $o->{all_hds});
+				} @fstab };
+			    },
+			},
 		      },
 		      [ map { 
 			  { 
-- 
cgit v1.2.1