From b928ba81c458b43f5a176b7aecc82171cc95ea0a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 14 May 2015 10:43:52 +0200
Subject: fix gtk+3 regression crash with --dav (mga#13204)

---
 perl-install/NEWS             | 1 +
 perl-install/diskdrake/dav.pm | 1 +
 2 files changed, 2 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 48cb47116..110930956 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,6 +1,7 @@
 - drakboot:
   o log grub2-install failures (mga#15439)
 - diskdrake:
+  o fix a gtk+3 regression crash with --dav (mga#13204)
   o fix too wide buttons (mga#12422, mga#13471, mga#14839, mga#15379)
 
 Version 16.26.12 - 17 August 2014
diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm
index 8ad2421c7..a2dc872ca 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -21,6 +21,7 @@ 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 } },
-- 
cgit v1.2.1