diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-10 07:37:41 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-10 07:38:51 +0100 |
| commit | 35931b6bbe8c68d2de33bb3bfa52e7aae9936d72 (patch) | |
| tree | 018175a24107593d99647575067aec7b7a343354 /perl-install/interactive/gtk.pm | |
| parent | 315dfd63a85bd85d5840fc035af2bbc281cfd08f (diff) | |
| download | drakx-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/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 3 |
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; |