From 62d041fbb09b04859c159b7435e45f891c447871 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 1 Jun 2004 08:30:53 +0000
Subject: (set_text) cleanups

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

(limited to 'perl-install')

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