diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:30:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:30:48 +0000 |
| commit | 638167d117b0532ef8ca0806f1a0c25659c179d7 (patch) | |
| tree | f3e3da772d6ceab44d0367b0b432c744db7b0747 /perl-install/network | |
| parent | f9e8f5bacf6791f642218ea1e6536d8227fc5d5d (diff) | |
| download | drakx-backup-do-not-use-638167d117b0532ef8ca0806f1a0c25659c179d7.tar drakx-backup-do-not-use-638167d117b0532ef8ca0806f1a0c25659c179d7.tar.gz drakx-backup-do-not-use-638167d117b0532ef8ca0806f1a0c25659c179d7.tar.bz2 drakx-backup-do-not-use-638167d117b0532ef8ca0806f1a0c25659c179d7.tar.xz drakx-backup-do-not-use-638167d117b0532ef8ca0806f1a0c25659c179d7.zip | |
syntax changes to make perl_checker happy
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/modem.pm | 6 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 8 | ||||
| -rw-r--r-- | perl-install/network/network.pm | 4 |
3 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index b466fabca..08fafc265 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -24,11 +24,11 @@ sub configure { # $netcnx->{$netcnx->{type}}->{connection} = ($netcnx->{$netcnx->{type}}->{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}->{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME}; # $modem->{device} = readlink "$prefix/dev/modem"; foreach (cat_("/usr/share/config/kppprc")) { - /^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split (',', $1); + /^DNS=(.*)$/ and ($modem->{dns1}, $modem->{dns2}) = split(',', $1); } my $secret = network::tools::read_secret_backend(); foreach (@$secret) { - $modem->{passwd} = $_->{passwd} if ($_->{login} eq $modem->{login}); + $modem->{passwd} = $_->{passwd} if $_->{login} eq $modem->{login}; } foreach (cat_("/etc/sysconfig/network-scripts/chat-ppp0")) { if (/.*ATDT(\d*).*/) { @@ -65,7 +65,7 @@ sub pppConfig { } $::isStandalone || $in->set_help('configureNetworkISP'); $in->ask_from('', N("Dialup options"), [ -{ label => N("Connection name"), val => \$modem->{connection}}, +{ label => N("Connection name"), val => \$modem->{connection} }, { label => N("Phone number"), val => \$modem->{phone} }, { label => N("Login ID"), val => \$modem->{login} }, { label => N("Password"), val => \$modem->{passwd}, hidden => 1 }, diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index d9c7690f7..ea46eb9a8 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -415,19 +415,19 @@ ISDNHomePhone=$isdn->{phone_in} ISDNLogin=$isdn->{login} ISDNPassword=$isdn->{passwd} ISDNConfirmPassword=$isdn->{passwd2} -". +" . #PPPInterfacesList= "PPPDevice=$modem->{device} PPPDeviceSpeed= PPPConnectionName=$modem->{connection} -". +" . #PPPProviderPhone=$modem->{phone} "PPPProviderDomain=$modem->{domain} -". +" . #PPPProviderDNS1=$modem->{dns1} #PPPProviderDNS2=$modem->{dns2} "PPPLogin=$modem->{login} -". +" . #PPPPassword=$modem->{passwd} #PPPConfirmPassword=$modem->{passwd} "PPPAuthentication=$modem->{auth} diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 07aac0b62..4278136fb 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -239,14 +239,14 @@ sub dns { my $mask = masked_ip($ip); my @masked = masked_ip($ip) =~ $ip_regexp; $masked[3] = 2; - join (".", @masked); + join(".", @masked); } sub gateway { my ($ip) = @_; my @masked = masked_ip($ip) =~ $ip_regexp; $masked[3] = 1; - join (".", @masked); + join(".", @masked); } |