From 12e2b5c87a379eec81c5e2d80b67493689691082 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 19:24:03 +0000
Subject: make perl_checker happy

---
 perl-install/network/nfs.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/network')

diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index e1a39aa7a..bd153259f 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -40,6 +40,7 @@ sub find_servers {
 
     my $domain = chomp_(`domainname`);
     my @servers;
+    local $_;
     while (<F>) {
 	chomp;
 	my ($ip, $name) = /(\S+)\s+(\S+)/ or log::l("bad line in rpcinfo output"), next;
-- 
cgit v1.2.1