diff options
| -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; |