summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-12-10 07:37:41 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-12-10 07:38:51 +0100
commit35931b6bbe8c68d2de33bb3bfa52e7aae9936d72 (patch)
tree018175a24107593d99647575067aec7b7a343354 /perl-install/interactive
parent315dfd63a85bd85d5840fc035af2bbc281cfd08f (diff)
downloaddrakx-35931b6bbe8c68d2de33bb3bfa52e7aae9936d72.tar
drakx-35931b6bbe8c68d2de33bb3bfa52e7aae9936d72.tar.gz
drakx-35931b6bbe8c68d2de33bb3bfa52e7aae9936d72.tar.bz2
drakx-35931b6bbe8c68d2de33bb3bfa52e7aae9936d72.tar.xz
drakx-35931b6bbe8c68d2de33bb3bfa52e7aae9936d72.zip
fix crash when selecting an input method (mga#11939)
Gtk3 API has changed
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 94739b356..ca6834f21 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -541,7 +541,8 @@ sub create_widget {
my $get = sub {
my $i = $model ? do {
- my $s = $model->get_string_from_iter($w->get_active_iter);
+ my (undef, $iter) = $w->get_active_iter;
+ my $s = $model->get_string_from_iter($iter);
eval { find_index { $s eq $_ } @{$model->{path_str_list}} };
} : do {
my $s = $w->get_text;