From d67d1856ab717c9a0b00487b815314084a4fa34b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 1 Jun 2004 08:34:22 +0000
Subject: (set_text): fix "cleanups"

---
 perl-install/ugtk2.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 6119d9881..1f43bdb4c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1642,12 +1642,10 @@ sub get_text {
 
 sub set_text {
     my ($w, $val) = @_;
-    find_index {
-        if ($_ eq $val) {
-            $w->set_active($::i);
-            1;
-        }
-    } @{$w->{strings}};
+    eval { 
+	my $val_index = find_index { $_ eq $val } @{$w->{strings}};
+	$w->set_active($val_index);
+    };
 }
 
 
-- 
cgit v1.2.1