From fb96edbd6ed677bd9f99752a7243cd8b07c39f97 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Jan 2003 16:13:08 +0000 Subject: (Mount_point): use uniq() on suggested mount points (otherwise the suggested mount point appears twice) (fixes bug #954) --- perl-install/diskdrake/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 57a17bd19..d5e201840 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -582,7 +582,7 @@ sub Mount_point { isLoopback($part) ? N("Where do you want to mount the loopback file %s?", $part->{loopback_file}) : N("Where do you want to mount device %s?", $part->{device}), [ { label => N("Mount point"), val => \$mntpoint, - list => [ if_($mntpoint, $mntpoint), fsedit::suggestions_mntpoint($all_hds), '' ], + list => [ uniq(if_($mntpoint, $mntpoint), fsedit::suggestions_mntpoint($all_hds), '') ], not_edit => 0 } ], complete => sub { !isPartOfLoopback($part) || $mntpoint or $in->ask_warn('', -- cgit v1.2.1