summaryrefslogtreecommitdiffstats
path: root/perl-install/network/isdn.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:25:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:25:41 +0000
commitd2433a73d2802850ba172e0afd7f7d69d31b96a8 (patch)
tree1531842601eab935188e0856ea4011191db75b90 /perl-install/network/isdn.pm
parente3cb98606052e9b30b047cfaeecca48d0f248590 (diff)
downloaddrakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.gz
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.bz2
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.tar.xz
drakx-d2433a73d2802850ba172e0afd7f7d69d31b96a8.zip
perl_checker fixes
Diffstat (limited to 'perl-install/network/isdn.pm')
-rw-r--r--perl-install/network/isdn.pm28
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index d488d35d8..2b747e255 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -169,7 +169,7 @@ sub isdn_read_config {
}
NEXT:
foreach my $f ('isdn1B.conf', 'isdn2B.conf') {
- foreach (cat_ ("$prefix/etc/isdn/$f")) {
+ foreach (cat_("$prefix/etc/isdn/$f")) {
/^\s*EAZ\s*=\s*(.*)/ and $isdn->{phone_in} = $1;
/^\s*PHONE_OUT\s*=\s*(.*)/ and $isdn->{phone_out} = $1;
if (/^\s*NAME\s*=\s*ippp0/ .. /PPPBIND\s*=\s*0/) {
@@ -178,22 +178,22 @@ sub isdn_read_config {
}
}
} else {
- my %match = (I4L_USERNAME => login,
- I4L_LOCALMSN => phone_in,
- I4L_REMOTE_OUT => phone_out,
- I4L_DIALMODE => dialing_mode,
- I4L_MODULE => driver,
- I4L_TYPE => type,
- I4L_IRQ => irq,
- I4L_MEMBASE => mem,
- I4L_PORT => io,
- I4L_IO0 => io0,
- I4L_IO1 => io1,
- I4L_FIRMWARE => firmware);
+ my %match = (I4L_USERNAME => 'login',
+ I4L_LOCALMSN => 'phone_in',
+ I4L_REMOTE_OUT => 'phone_out',
+ I4L_DIALMODE => 'dialing_mode',
+ I4L_MODULE => 'driver',
+ I4L_TYPE => 'type',
+ I4L_IRQ => 'irq',
+ I4L_MEMBASE => 'mem',
+ I4L_PORT => 'io',
+ I4L_IO0 => 'io0',
+ I4L_IO1 => 'io1',
+ I4L_FIRMWARE => 'firmware');
foreach ('link/myisp', 'card/mycard') {
my %conf = getVarsFromSh("$prefix/etc/isdn/profile/$_");
foreach (keys %conf) {
- $isdn->{$match{"$_"}} = $conf{"$_"} if $match{$_};
+ $isdn->{$match{$_}} = $conf{$_} if $match{$_};
}
}
}