From 46f20609a6bf1a2ccd68b456495b7fc2d444ac19 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 10 Feb 2003 08:01:17 +0000
Subject: perl_checker fixes

---
 perl-install/network/ethernet.pm   | 2 +-
 perl-install/network/netconnect.pm | 2 +-
 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;
 				   }
-- 
cgit v1.2.1