summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-10 08:01:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-10 08:01:17 +0000
commit46f20609a6bf1a2ccd68b456495b7fc2d444ac19 (patch)
treeec47482e81603f529b152f3166e2604bb14039eb
parente3b29076da96ad0fc42f29909648ee2582323e67 (diff)
downloaddrakx-46f20609a6bf1a2ccd68b456495b7fc2d444ac19.tar
drakx-46f20609a6bf1a2ccd68b456495b7fc2d444ac19.tar.gz
drakx-46f20609a6bf1a2ccd68b456495b7fc2d444ac19.tar.bz2
drakx-46f20609a6bf1a2ccd68b456495b7fc2d444ac19.tar.xz
drakx-46f20609a6bf1a2ccd68b456495b7fc2d444ac19.zip
perl_checker fixes
-rw-r--r--perl-install/network/ethernet.pm2
-rw-r--r--perl-install/network/netconnect.pm2
-rw-r--r--perl-install/network/network.pm6
3 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 4d94b90eb..361eb10fd 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -193,7 +193,7 @@ such as ``mybox.mylab.myco.com''."),
if_($netc->{ZEROCONF}, { label => N("Zeroconf Host name"), val => \$netc->{ZEROCONF_HOSTNAME} }),
],
complete => sub {
- if ($netc->{ZEROCONF_HOSTNAME} and $netc->{ZEROCONF_HOSTNAME} =~ /\./ ) {
+ if ($netc->{ZEROCONF_HOSTNAME} and $netc->{ZEROCONF_HOSTNAME} =~ /\./) {
$in->ask_warn('', N("Zeroconf host name must not contain a ."));
return 1;
}
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index f888ab208..2bc9d0258 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -466,7 +466,7 @@ sub get_net_device {
my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
my $network_file = "/etc/sysconfig/network";
if (cat_("$prefix$connect_file") =~ /network/) {
- ${ {getVarsFromSh("$prefix$network_file")} }{GATEWAYDEV};
+ ${ { getVarsFromSh("$prefix$network_file") } }{GATEWAYDEV};
} else {
"ppp+";
};
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 17fd4cf9e..02f96761b 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -51,7 +51,7 @@ sub read_tmdns_conf {
my %outf;
while (<F>) {
- ($outf{ZEROCONF_HOSTNAME}, ) = /^\s*hostname\s*=\s*(\w+)/ and return \%outf;
+ ($outf{ZEROCONF_HOSTNAME}) = /^\s*hostname\s*=\s*(\w+)/ and return \%outf;
}
\%outf;
@@ -351,7 +351,7 @@ notation (for example, 1.2.3.4).");
],
complete => sub {
- $intf->{BOOTPROTO} = $auto_ip ? join('', if_($auto_ip, "dhcp") ) : "static";
+ $intf->{BOOTPROTO} = $auto_ip ? join('', if_($auto_ip, "dhcp")) : "static";
$netc->{DHCP} = $auto_ip;
$netc->{ZEROCONF} = $zeroconf;
return 0 if $auto_ip;
@@ -408,7 +408,7 @@ You may also enter the IP address of the gateway if you have one."),
$in->ask_warn('', N("Gateway address should be in format 1.2.3.4"));
return 1;
}
- if ($netc->{ZEROCONF_HOSTNAME} and $netc->{ZEROCONF_HOSTNAME} =~ /\./ ) {
+ if ($netc->{ZEROCONF_HOSTNAME} and $netc->{ZEROCONF_HOSTNAME} =~ /\./) {
$in->ask_warn('', N("Zeroconf host name must not contain a ."));
return 1;
}