summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-05-26 16:29:42 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-05-26 16:29:42 +0000
commit2729e7e4a9b1bdbce7cd97b1df0082472e4009aa (patch)
tree3d60fc1de7694fa88d37fd7caf5e04d4fb5cd282 /perl-install/interactive
parent7b986d9b7c7d8f68b00e8682d548843baef709da (diff)
downloaddrakx-2729e7e4a9b1bdbce7cd97b1df0082472e4009aa.tar
drakx-2729e7e4a9b1bdbce7cd97b1df0082472e4009aa.tar.gz
drakx-2729e7e4a9b1bdbce7cd97b1df0082472e4009aa.tar.bz2
drakx-2729e7e4a9b1bdbce7cd97b1df0082472e4009aa.tar.xz
drakx-2729e7e4a9b1bdbce7cd97b1df0082472e4009aa.zip
(ask_fromW) help perl_checker
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 3b10a3e9e..0438dfdd0 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -602,7 +602,10 @@ sub ask_fromW {
}
};
$get = sub {
- my $s = $model ? { reverse %{$model->{indexes}} }->{$w->get_active} : $w->get_text;
+ my $s;
+ if ($model) {
+ $s = { reverse %{$model->{indexes}} }->{$w->get_active};
+ } else { $s = $w->get_text }
my $i = eval { find_index { $s eq $_ } @formatted_list };
defined $i ? $e->{list}[$i] : $s;
};