summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm4
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}};
}