summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-06-24 11:26:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-06-24 11:26:11 +0000
commit0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7 (patch)
treedb03449052ec689c0225c0da100a5dd8bb8ebc12 /perl-install/standalone/drakfont
parente6cc29951c4bad7f62621ce07c8b394e7e709cb8 (diff)
downloaddrakx-backup-do-not-use-0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7.tar
drakx-backup-do-not-use-0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7.tar.gz
drakx-backup-do-not-use-0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7.tar.bz2
drakx-backup-do-not-use-0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7.tar.xz
drakx-backup-do-not-use-0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7.zip
prevent drakfont from crashing when trying to deleting an empty list
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont1
1 files changed, 1 insertions, 0 deletions
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;