diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-27 12:02:44 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-27 12:02:44 +0000 |
| commit | 408890f9bbe00640962408589b6166f39cf077c9 (patch) | |
| tree | cba99e9da0c5e13b70bae5a52a1d1c9b712683ca /perl-install | |
| parent | c5d813623f86931e73b1bba1490ce20b50d7ddbe (diff) | |
| download | drakx-408890f9bbe00640962408589b6166f39cf077c9.tar drakx-408890f9bbe00640962408589b6166f39cf077c9.tar.gz drakx-408890f9bbe00640962408589b6166f39cf077c9.tar.bz2 drakx-408890f9bbe00640962408589b6166f39cf077c9.tar.xz drakx-408890f9bbe00640962408589b6166f39cf077c9.zip | |
(isdn_get_info) simplify it trough MDK::Common
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/isdn.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 7ac63f15b..9ee1ad034 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -266,9 +266,7 @@ sub isdn_get_list() { sub isdn_get_info { my ($desc) = @_; - foreach (@isdndata) { - return $_ if $_->{description} eq $desc; - } + find { $_->{description} eq $desc } @isdndata; } 1; |