From 76aef5df8655820487dc0eb0ad1e13066f0f33bb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Jan 2003 08:12:55 +0000
Subject: fix latest source of "unlisted modules" in draksound:
 modules::get_alias() was able to give "module " instead of only "module"
 beacause modules::read_conf() split the line on space with a maximum of 3
 splited elements.

i choose to strip terminal spaces and btw terminal comments.

i did not choose to do not put a limit to split since it's usefull for some
cases.
---
 perl-install/modules.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 50efa8c6b..8a28ef23b 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -186,7 +186,9 @@ sub read_conf {
 
     foreach (cat_($file)) {
 	next if /^\s*#/;
+	s/#.*$//;
 	my ($type, $alias, $val) = split(/\s+/, chomp_($_), 3) or next;
+	$val =~ s/\s+$//;
 
 	$val = [ split ' ', $val ] if $type eq 'probeall';
 
-- 
cgit v1.2.1