From 5c5fd3fcb1c2ca689f62f7b29f376bc56feb6d64 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 20 Dec 2013 11:42:07 +0100
Subject: fix a crash (mga#12057)

---
 perl-install/NEWS                | 3 +++
 perl-install/standalone/drakfont | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index e1e9150eb..2c18a2f66 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakfont:
+  o fix a crash (mga#12057)
+
 Version 16.16 - 16 December 2013
 
 - fix a drakx crash (mga#6031)
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index c67041263..68e4c67eb 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -633,7 +633,7 @@ sub advanced_install() {
     $list->get_selection->set_mode('browse');
     $list->set_rules_hint(1);
     $model->signal_connect("row-inserted" => sub { $button and $button->set_sensitive(1) });
-    $model->signal_connect("row-deleted" => sub { $button and $button->set_sensitive($model->get_iter_first) });
+    $model->signal_connect("row-deleted" => sub { $button and $button->set_sensitive($model->get_iter_first || 0) });
 
     dialog(N("Import fonts"),
            [
-- 
cgit v1.2.1