summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-01 08:30:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-01 08:30:53 +0000
commit62d041fbb09b04859c159b7435e45f891c447871 (patch)
treea3b9338c33162566e7f8ab0daa3ee07194d234da /perl-install/ugtk2.pm
parent98e1106cdce63a01eac3ef3c6867f8ee98680996 (diff)
downloaddrakx-62d041fbb09b04859c159b7435e45f891c447871.tar
drakx-62d041fbb09b04859c159b7435e45f891c447871.tar.gz
drakx-62d041fbb09b04859c159b7435e45f891c447871.tar.bz2
drakx-62d041fbb09b04859c159b7435e45f891c447871.tar.xz
drakx-62d041fbb09b04859c159b7435e45f891c447871.zip
(set_text) cleanups
Diffstat (limited to 'perl-install/ugtk2.pm')
-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}};
}