summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/interactive/gtk.pm3
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;