Fixed a crash if no media configured

2 files changed, 7 insertions, 2 deletions

diff --git a/Changes b/Changes
index 32034ddf..cd7e376b 100644
--- a/Changes
+++ b/Changes
@@ -1,8 +1,11 @@
 Revision history for AdminPanel-Shared
+1.0.0-3 
+	- dragora-urpm-sources.pl crashed if no media are configured
+
 1.0.0-2 06/09/2014 23:39
 	- changed dist file name to lower case letters
 	- Added check for root use into manaservice
 
 1.0.0-1  02/09/2014 00:13
-         First version, released on an unsuspecting world.
+	- First version, released on an unsuspecting world.
 
diff --git a/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm b/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
index 154f304a..3221f26a 100644
--- a/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
+++ b/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
@@ -1661,7 +1661,9 @@ sub mainwindow() {
     $factory->createHSpacing($hbox, 1.0);
     my $enabled = $factory->createCheckBox($factory->createLeft($hbox), $loc->N("Enabled"));
     my $update  = $factory->createCheckBox($factory->createLeft($hbox), $loc->N("Updates"));
-    _showMediaStatus({item => $item, enabled => $enabled, updates => $update});
+    eval {
+        _showMediaStatus({item => $item, enabled => $enabled, updates => $update});
+    };
     $update->setNotify(1);
     $enabled->setNotify(1);
     $update->setDisabled() if (!$::expert);