diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-05-26 16:29:42 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-05-26 16:29:42 +0000 |
| commit | 2729e7e4a9b1bdbce7cd97b1df0082472e4009aa (patch) | |
| tree | 3d60fc1de7694fa88d37fd7caf5e04d4fb5cd282 /perl-install/interactive/gtk.pm | |
| parent | 7b986d9b7c7d8f68b00e8682d548843baef709da (diff) | |
| download | drakx-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/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 5 |
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; }; |