diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-10 08:01:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-10 08:01:17 +0000 |
| commit | 46f20609a6bf1a2ccd68b456495b7fc2d444ac19 (patch) | |
| tree | ec47482e81603f529b152f3166e2604bb14039eb | |
| parent | e3b29076da96ad0fc42f29909648ee2582323e67 (diff) | |
| download | drakx-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.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/network.pm | 6 |
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; } |