perl_cehcker recommendation

1 files changed, 6 insertions, 6 deletions

diff --git a/nisautofs_wizard/Nisautofs.pm b/nisautofs_wizard/Nisautofs.pm
index 0396d4bc..a696e362 100644
--- a/nisautofs_wizard/Nisautofs.pm
+++ b/nisautofs_wizard/Nisautofs.pm
@@ -60,7 +60,7 @@ my $o = {
 	 defaultimage => "/usr/share/wizards/dns_wizard/images/NIS.png",
 	 init => sub {
 	   if (member($NISDOMAIN, qw(localdomain (none)))) {
-             return (0, N("You need to readjust your NIS domainname. For a NIS server you need a correct NIS domainname, not egal to localdomain or none. Add NISDOMAIN=your_nis_domain in /etc/sysconfig/network file, and do a: nisdomainname your_nis_domain."))
+             return 0, N("You need to readjust your NIS domainname. For a NIS server you need a correct NIS domainname, not egal to localdomain or none. Add NISDOMAIN=your_nis_domain in /etc/sysconfig/network file, and do a: nisdomainname your_nis_domain.")
            }
            1
 	 },
@@ -75,7 +75,7 @@ $o->{pages} = {
 	       welcome => {
 			   name => N("NIS server with autofs map") . "\n\n" . N("Setup a Nis server with autofs map, auto.home and auto.master files.") . "\n\n" . N("Client can automatically mount their home directory when they log on a NIS client computer network."),
 			   no_back => 1,
-			   pre => sub { $o->{var}{wiz_level} ||= 1; },
+			   pre => sub { $o->{var}{wiz_level} ||= 1 },
 			   post => sub { if ($o->{var}{wiz_level} == 2) {
 			     return 'nis_client'
 			   }
@@ -110,7 +110,7 @@ $o->{pages} = {
 					  { label => N("Home NIS:"), fixed_val => \$o->{var}{HOMENIS} },
 					  { label => N("NIS domainname:"), fixed_val => \$o->{var}{NISDOMAIN} },
 					  { label => N("Nis directory:"), fixed_val => \$o->{var}{NIS_DIRMAKEFILE} },
-					  { label => N("Network File:"), fixed_val => \$o->{var}{NETWORKFILE}},
+					  { label => N("Network File:"), fixed_val => \$o->{var}{NETWORKFILE} },
 					  { label => N("Nfs exports:"), fixed_val => \$o->{var}{NFSEXPORTS} },
 					  { label => N("Auto master:"), fixed_val => \$o->{var}{AUTOMASTER} },
 					  { label => N("Auto home:"), fixed_val => \$o->{var}{AUTOHOME} },
@@ -154,7 +154,7 @@ $o->{pages} = {
 
 
 sub test_set {
-  if (member($o->{var}{NISDOMAIN}, qw(localdomain (none)))) { return 'error_nisd'; }
+  if (member($o->{var}{NISDOMAIN}, qw(localdomain (none)))) { return 'error_nisd' }
   !-d $o->{var}{HOMENIS} or return 'error_dir';
   !-d $o->{var}{NIS_DIRMAKEFILE} or return 'error_dir';
 }
@@ -234,7 +234,7 @@ sub get_nis_users {
   my @unwanted = qw(install maui nobody mpi);
   my @users;
   open(PASS, "ypcat passwd|") || die " cant exec ypcat passwd!";
-  while(<PASS>) {
+  while (<PASS>) {
     my ($login) = split(':');
     if (!member($login, @unwanted)) {
       push(@users, $login);
@@ -263,7 +263,7 @@ EOF
 }
 
 sub test_autofile {
-    map { if (-e $_) { rm_rf($_) } ; $_} $AUTOHOME, $AUTOMASTER;
+    map { if (-e $_) { rm_rf($_) }; $_ } $AUTOHOME, $AUTOMASTER;
 }
 
 sub save_config {