From 46f20609a6bf1a2ccd68b456495b7fc2d444ac19 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 10 Feb 2003 08:01:17 +0000 Subject: perl_checker fixes --- perl-install/network/network.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network/network.pm') 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 () { - ($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