summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-28 09:30:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-28 09:30:02 +0000
commit649015ba83578ac4a5b89242ccb1a50c630afa4f (patch)
tree7d91a2866b2283e3c4fad80d92066d087896fe97 /perl-install/diskdrake/interactive.pm
parent27098585a79fc10be1d9c627da51ed49f4611d1d (diff)
downloaddrakx-649015ba83578ac4a5b89242ccb1a50c630afa4f.tar
drakx-649015ba83578ac4a5b89242ccb1a50c630afa4f.tar.gz
drakx-649015ba83578ac4a5b89242ccb1a50c630afa4f.tar.bz2
drakx-649015ba83578ac4a5b89242ccb1a50c630afa4f.tar.xz
drakx-649015ba83578ac4a5b89242ccb1a50c630afa4f.zip
in "Mount point", by default choose the default proposition (asked by dadou for smb)
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index a30d32b45..6d482e8af 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -586,14 +586,14 @@ Remove the loopback first")), return 1;
}
}
sub Mount_point_raw_hd {
- my ($in, $part, $all_hds, $propositions) = @_;
+ my ($in, $part, $all_hds, @propositions) = @_;
- my $mntpoint = $part->{mntpoint};
+ my $mntpoint = $part->{mntpoint} || shift @propositions;
$in->ask_from(
'',
_("Where do you want to mount %s?", $part->{device}),
[ { label => _("Mount point"), val => \$mntpoint,
- list => [ if_($mntpoint, $mntpoint), '', @$propositions ],
+ list => [ if_($mntpoint, $mntpoint), '', @propositions ],
not_edit => 0 } ],
complete => sub {
$part->{mntpoint} eq $mntpoint || check_mntpoint($in, $mntpoint, {}, $part, $all_hds) or return 1;