From 35931b6bbe8c68d2de33bb3bfa52e7aae9936d72 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 10 Dec 2013 07:37:41 +0100
Subject: fix crash when selecting an input method (mga#11939)

Gtk3 API has changed
---
 perl-install/NEWS               | 3 +++
 perl-install/install/NEWS       | 2 ++
 perl-install/interactive/gtk.pm | 3 ++-
 3 files changed, 7 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1