summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-27 12:02:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-27 12:02:44 +0000
commit408890f9bbe00640962408589b6166f39cf077c9 (patch)
treecba99e9da0c5e13b70bae5a52a1d1c9b712683ca /perl-install
parentc5d813623f86931e73b1bba1490ce20b50d7ddbe (diff)
downloaddrakx-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.pm4
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;