From 84518671ee8bdc8f4093f3dd5e7e7ae5df0c3866 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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(+) 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