From 2729e7e4a9b1bdbce7cd97b1df0082472e4009aa Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 26 May 2005 16:29:42 +0000
Subject: (ask_fromW) help perl_checker

---
 perl-install/interactive/gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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