From c39ce7aa14f2424c874cc58b5ce5249a05fabe66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 20:24:49 +0000
Subject: perl_checker fixes

---
 nisautofs_wizard/Nisautofs.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'nisautofs_wizard')

diff --git a/nisautofs_wizard/Nisautofs.pm b/nisautofs_wizard/Nisautofs.pm
index da0b438f..614d4222 100644
--- a/nisautofs_wizard/Nisautofs.pm
+++ b/nisautofs_wizard/Nisautofs.pm
@@ -233,7 +233,8 @@ sub needed_service {
 sub get_nis_users {
   my @unwanted = qw(install maui nobody mpi);
   my @users;
-  open(PASS, "ypcat passwd|") || die " cant exec ypcat passwd!";
+  local *PASS;
+  open(PASS, "ypcat passwd|") or die " cant exec ypcat passwd!";
   while (<PASS>) {
     my ($login) = split(':');
     if (!member($login, @unwanted)) {
@@ -319,7 +320,7 @@ sub do_it_server {
     # update nfs to fit nis
     nfs_home_nis();
     # restart all needed services
-    map { needed_service($_); $_ } qw(ypserv nfs);
+    needed_service($_) foreach qw(ypserv nfs);
     undef $w;
 }
 
@@ -336,12 +337,12 @@ sub do_it_client {
     update_yp(chomp_($o->{var}{NISDOMAIN}), chomp_($o->{var}{NISSERVER}));
     # update conf file
     update_network();
-    map { needed_service($_); $_ } qw(ypbind autofs);
+    needed_service($_) foreach qw(ypbind autofs);
     undef $w;
 }
 
 sub new {
-    my ($class, $conf) = @_;
+    my ($class) = @_;
     bless {
             o   => $o,
        }, $class;
-- 
cgit v1.2.1