diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-06 16:44:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-06 16:44:56 +0000 |
| commit | 2c31185aaeddd8d6205d8bb9c7b17264ab69561b (patch) | |
| tree | 6bcd00d47ada108cab06c64b9634c749afb1fc39 | |
| parent | cac964c0af314f9a61d9f1764372b3bbe1fee244 (diff) | |
| download | drakx-2c31185aaeddd8d6205d8bb9c7b17264ab69561b.tar drakx-2c31185aaeddd8d6205d8bb9c7b17264ab69561b.tar.gz drakx-2c31185aaeddd8d6205d8bb9c7b17264ab69561b.tar.bz2 drakx-2c31185aaeddd8d6205d8bb9c7b17264ab69561b.tar.xz drakx-2c31185aaeddd8d6205d8bb9c7b17264ab69561b.zip | |
be more perl_checker compliant
| -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; |