diff options
| -rw-r--r-- | perl-install/network/isdn.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 88a6fc013..c621f16af 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -160,16 +160,15 @@ sub isdn_read_config { /(.*)=(.*)/; $isdn->{$1} = $2; } - ; foreach my $f ('ioptions1B', 'ioptions2B') { - foreach (cat_ ("$prefix/etc/ppp/$f")) { + foreach (cat_("$prefix/etc/ppp/$f")) { if (/^\s*name\s*(.*)/) { $isdn->{login} = $1; goto NEXT; } } } - NEXT : + NEXT: foreach my $f ('isdn1B.conf', 'isdn2B.conf') { foreach (cat_ ("$prefix/etc/isdn/$f")) { /^\s*EAZ\s*=\s*(.*)/ and $isdn->{phone_in} = $1; |