diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/interactive/gtk.pm | 3 |
3 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index d9f478ab5..64c6f0ce6 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- localedrake: + o fix crash when selecting an input method (mga#11939) + Version 16.12 - 9 December 2013 - partitioning wizard: diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 145ddb876..a070f7761 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix crash when selecting an input method (mga#11939) + Version 16.10 - 6 December 2013 - package group selection: 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; |