From 5788627a0a6bdb2961534c9c2a99014e6f60a99f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 27 Jun 2014 00:24:04 +0200
Subject: fix crashing when canceling browsing custom media path (mga#13268)

---
 NEWS                          | 1 +
 Rpmdrake/edit_urpm_sources.pm | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index cb5fd3a4..48248f21 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 - pkgs list contains only latest updates, not all of them, so 
   filters and backport list have been managed accordingly (fix mga#12766)
 - edit-urpm-sources:
+  o fix crashing when canceling browsing custom media path (mga#13268)
   o fix down arrow button not working (mga#13572)
 
 Version 6.10 - 22 January 2014, Colin Guthrie
diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index f9322504..231524fc 100644
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -192,7 +192,10 @@ sub add_callback() {
 		    $info->{dirsel},
 		    0, gtksignal_connect(
 			gtknew('Button', text => but(N("Browse..."))),
-			clicked => sub { $info->{url_entry}->set_text(ask_dir()) },
+			clicked => sub {
+			    my $dir = ask_dir() or return;
+			    $info->{url_entry}->set_text($dir);
+			}
 		    )
 		),
 	    );
-- 
cgit v1.2.1