summaryrefslogtreecommitdiffstats
path: root/perl-install/network/isdn.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
commitb7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch)
tree9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/network/isdn.pm
parentf47690a41184c9f99a6fbf003b1045c3f4c0220b (diff)
downloaddrakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz
drakx-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/network/isdn.pm')
-rw-r--r--perl-install/network/isdn.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 8e1c00261..e6997351e 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -23,15 +23,15 @@ sub configure {
) or return;
if ($e =~ /card/) {
intern_pci:
- $netc->{isdntype}='isdn_internal';
- $netcnx->{isdn_internal}={};
+ $netc->{isdntype} = 'isdn_internal';
+ $netcnx->{isdn_internal} = {};
$netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach 'description', 'vendor', 'id', 'driver', 'card_type', 'type';
isdn_detect($netcnx->{isdn_internal}, $netc) or return;
} else {
- $netc->{isdntype}='isdn_external';
- $netcnx->{isdn_external}={};
- $netcnx->{isdn_external}{device}=$netc->{autodetect}{modem};
- $netcnx->{isdn_external}{special_command}='AT&F&O2B40';
+ $netc->{isdntype} = 'isdn_external';
+ $netcnx->{isdn_external} = {};
+ $netcnx->{isdn_external}{device} = $netc->{autodetect}{modem};
+ $netcnx->{isdn_external}{special_command} = 'AT&F&O2B40';
require network::modem;
network::modem::pppConfig($netcnx->{isdn_external}, $mouse, $netc) or goto isdn_step_1;
}
@@ -76,7 +76,7 @@ sub isdn_write_config_backend {
} else {
my $a = "";
defined $isdn->{$_} and $a .= "$_=" . $isdn->{$_} . " " foreach qw(type protocol mem io io0 io1 irq);
- $isdn->{driver} eq "hisax" and $a.="id=HiSax";
+ $isdn->{driver} eq "hisax" and $a .= "id=HiSax";
modules::set_options($isdn->{driver}, $a);
}
modules::add_alias("ippp0", $isdn->{driver});
@@ -243,7 +243,7 @@ sub isdn_detect {
isdn_ask($isdn, $netc, N("I have detected an ISDN PCI card, but I don't know its type. Please select a PCI card on the next screen.")) or return;
} else {
isdn_detect_step_1:
- $isdn->{protocol}=isdn_ask_protocol() or return;
+ $isdn->{protocol} = isdn_ask_protocol() or return;
isdn_detect_step_2:
isdn_ask_info($isdn, $netc) or goto isdn_detect_step_1;
isdn_write_config($isdn, $netc) or goto isdn_detect_step_2;
@@ -251,7 +251,7 @@ sub isdn_detect {
} else {
isdn_ask($isdn, $netc, N("No ISDN PCI card found. Please select one on the next screen.")) or return;
}
- $netc->{$_}='ippp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
+ $netc->{$_} = 'ippp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
1;
}