1 files changed, 2 insertions, 2 deletions
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}};
 }