From 4dc8684480aa0386905d331a1c79ee9c388d2b62 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 14 May 2015 20:28:42 +0200
Subject: simplify

---
 perl-install/diskdrake/dav.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/diskdrake')

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);
-- 
cgit v1.2.1