diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-06-24 11:26:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-06-24 11:26:11 +0000 |
| commit | 0d357d72a4ff2c0d0f423b5ca202d8c2600c23f7 (patch) | |
| tree | db03449052ec689c0225c0da100a5dd8bb8ebc12 /perl-install | |
| parent | e6cc29951c4bad7f62621ce07c8b394e7e709cb8 (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/drakfont | 1 |
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; |