diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-06-01 08:30:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-06-01 08:30:53 +0000 |
| commit | 62d041fbb09b04859c159b7435e45f891c447871 (patch) | |
| tree | a3b9338c33162566e7f8ab0daa3ee07194d234da /perl-install | |
| parent | 98e1106cdce63a01eac3ef3c6867f8ee98680996 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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}}; } |