summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-14 20:28:42 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-02-10 23:10:55 +0100
commit4dc8684480aa0386905d331a1c79ee9c388d2b62 (patch)
tree8f3abda63081dd2921611922610ddee5e72a5ca9 /perl-install
parentc36f5bc526c4f46acce03a5061e7a0e26a867337 (diff)
downloaddrakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar
drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.gz
drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.bz2
drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.xz
drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.zip
simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/dav.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm
index 90510aaa0..9036596b3 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -21,7 +21,6 @@ points, select \"New\".")) },
[
(map {
my $dav = $_;
- $dav->{mntpoint} ||= 'none';
{ label => $dav->{device}, val => $dav->{mntpoint}, clicked_may_quit => sub { config($in, $dav, $all_hds); 1 } } } @$davs),
{ val => N("New"), clicked_may_quit => sub { create($in, $all_hds); 1 } },
{ val => N("Quit"), clicked_may_quit => sub { $quit = 1 } },
@@ -34,7 +33,7 @@ points, select \"New\".")) },
sub create {
my ($in, $all_hds) = @_;
- my $dav = { fs_type => 'davfs2' };
+ my $dav = { fs_type => 'davfs2', mntpoint => 'none' };
ask_server($in, $dav, $all_hds) or return;
push @{$all_hds->{davs}}, $dav;
config($in, $dav, $all_hds);