From 1cebaa8802f0a1a096b0667b0bc924358f5f7190 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 May 2003 10:18:16 +0000 Subject: (find_servers): chomp is uneeded --- perl-install/network/nfs.pm | 1 - 1 file changed, 1 deletion(-) diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm index 22452e17c..127800ecb 100644 --- a/perl-install/network/nfs.pm +++ b/perl-install/network/nfs.pm @@ -43,7 +43,6 @@ sub find_servers { my @servers; local $_; while (<$F>) { - chomp; my ($ip, $name) = /(\S+)\s+(\S+)/ or log::l("bad line in rpcinfo output"), next; $name =~ s/\Q.$domain//; $name =~ s/\.$//; -- cgit v1.2.1