From 408890f9bbe00640962408589b6166f39cf077c9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Oct 2003 12:02:44 +0000
Subject: (isdn_get_info) simplify it trough MDK::Common

---
 perl-install/network/isdn.pm | 4 +---
 1 file changed, 1 insertion(+), 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;
-- 
cgit v1.2.1