summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-08-24 15:16:01 +0000
committerOlivier Blin <oblin@mandriva.org>2005-08-24 15:16:01 +0000
commitd54c1557c01a38d6f45e9c9c20bae831c487f173 (patch)
tree4746aafc3c26936e5ea04cfb69fa03b97d5f4e1a /perl-install
parente582f460c246b221db8a3c8a480007c8a6d9c98b (diff)
downloaddrakx-d54c1557c01a38d6f45e9c9c20bae831c487f173.tar
drakx-d54c1557c01a38d6f45e9c9c20bae831c487f173.tar.gz
drakx-d54c1557c01a38d6f45e9c9c20bae831c487f173.tar.bz2
drakx-d54c1557c01a38d6f45e9c9c20bae831c487f173.tar.xz
drakx-d54c1557c01a38d6f45e9c9c20bae831c487f173.zip
do not crash in create_treeview_tree with allow_empty_list and really empty list (#17718)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 045b7e4f1..1242b6387 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -306,16 +306,18 @@ sub create_treeview_tree {
});
$tree, sub {
- my $v = may_apply($e->{format}, $_[0]);
- my $i = find_index { $v eq $_ } @{$e->{formatted_list}};
+ my $v = may_apply($e->{format}, $_[0]);
+ eval {
+ my $i = find_index { $v eq $_ } @{$e->{formatted_list}};
- my ($model, $iter) = $tree->get_selection->get_selected;
+ my ($model, $iter) = $tree->get_selection->get_selected;
- my $new_path_str = $tree_model->{path_str_list}[$i];
- my $old_path_str = $model && $tree_model->get_path_str($iter);
-
- $select->($new_path_str) if $new_path_str ne $old_path_str;
- undef $iter if ref $iter;
+ my $new_path_str = $tree_model->{path_str_list}[$i];
+ my $old_path_str = $model && $tree_model->get_path_str($iter);
+
+ $select->($new_path_str) if $new_path_str ne $old_path_str;
+ undef $iter if ref $iter;
+ };
};
}