diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-10 13:25:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-10 13:25:41 +0000 |
| commit | d2433a73d2802850ba172e0afd7f7d69d31b96a8 (patch) | |
| tree | 1531842601eab935188e0856ea4011191db75b90 /perl-install/network/isdn.pm | |
| parent | e3cb98606052e9b30b047cfaeecca48d0f248590 (diff) | |
| download | drakx-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.pm | 28 |
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{$_}; } } } |