diff options
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; |