diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-14 20:28:42 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-02-10 23:10:55 +0100 |
| commit | 4dc8684480aa0386905d331a1c79ee9c388d2b62 (patch) | |
| tree | 8f3abda63081dd2921611922610ddee5e72a5ca9 /perl-install/diskdrake/dav.pm | |
| parent | c36f5bc526c4f46acce03a5061e7a0e26a867337 (diff) | |
| download | drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.gz drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.bz2 drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.tar.xz drakx-4dc8684480aa0386905d331a1c79ee9c388d2b62.zip | |
simplify
Diffstat (limited to 'perl-install/diskdrake/dav.pm')
| -rw-r--r-- | perl-install/diskdrake/dav.pm | 3 |
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); |