From 0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 24 Jun 2003 11:26:11 +0000
Subject: prevent drakfont from crashing when trying to deleting an empty list

---
 perl-install/standalone/drakfont | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 92909a6fc..d954eed58 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -717,6 +717,7 @@ sub file_ok_sel {
 
 sub list_remove() { #- TODO : multi-selection
     my ($treeStore, $iter) = $list->get_selection->get_selected;
+    return unless $iter;
     my $to_remove = $treeStore->get($iter, 0);
     my ($index) = map_index { if_($_ eq $to_remove, $::i) } @install;
     splice @install, $index, 1;
-- 
cgit v1.2.1