diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 11:59:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 11:59:03 +0000 |
| commit | aaff6dff3ac0e9b19810fc1bc836f30c19918e5d (patch) | |
| tree | 24d563bb50162681d48011773d41f501c720d888 /perl-install/network/isdn.pm | |
| parent | 8eb45d87d70be8b1802f5f6c79cf53b3099b0596 (diff) | |
| download | drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.gz drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.bz2 drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.xz drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.zip | |
make new perl_checker happy
Diffstat (limited to 'perl-install/network/isdn.pm')
| -rw-r--r-- | perl-install/network/isdn.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 504655d11..f9c8bd409 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -74,7 +74,7 @@ sub isdn_write_config_backend { if ($isdn->{id}) { isdn_detect_backend($isdn); } else { - my $a=""; + my $a = ""; defined $isdn->{$_} and $a .= "$_=" . $isdn->{$_} . " " foreach qw(type protocol mem io io0 io1 irq); $isdn->{driver} eq "hisax" and $a.="id=HiSax"; modules::set_options($isdn->{driver}, $a); @@ -86,7 +86,7 @@ sub isdn_write_config_backend { chmod 0600, $f; } foreach my $f ('isdn1B.conf', 'isdn2B.conf') { - my $a=1; + my $a = 1; substInFile { s/EAZ =.*/EAZ = $isdn->{phone_in}/; s/PHONE_OUT =.*/PHONE_OUT = $isdn->{phone_out}/; @@ -167,7 +167,7 @@ sub isdn_ask_info { my ($isdn, $netc) = @_; my $f = "$ENV{SHARE_PATH}/ldetect-lst/isdn.db"; $f = "$prefix$f" if !-e $f; - my $str= $in->ask_from_treelist(_("ISDN Configuration"), _("Select your provider.\nIf it isn't listed, choose Unlisted."), + my $str = $in->ask_from_treelist(_("ISDN Configuration"), _("Select your provider.\nIf it isn't listed, choose Unlisted."), '|', ['Unlisted - edit manually', read_providers_backend($f)], 'Unlisted - edit manually') or return; @@ -179,7 +179,7 @@ sub isdn_ask_info { } sub isdn_ask_protocol { - my @toto=( + my @toto = ( { description => $::expert ? _("Europe protocol (EDSS1)") : _("Europe protocol"), protokol => 2}, { description => $::expert ? _("Protocol for the rest of the world\nNo D-Channel (leased lines)") : _("Protocol for the rest of the world"), |