summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-27 08:12:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-27 08:12:55 +0000
commit76aef5df8655820487dc0eb0ad1e13066f0f33bb (patch)
tree4c215bd30fafe3cba33a882e7acf5fd1b0d3dfd9
parent45f18adacd2637793a07bbb60283eeb2a811fc52 (diff)
downloaddrakx-backup-do-not-use-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar
drakx-backup-do-not-use-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.gz
drakx-backup-do-not-use-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.bz2
drakx-backup-do-not-use-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.xz
drakx-backup-do-not-use-76aef5df8655820487dc0eb0ad1e13066f0f33bb.zip
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.
-rw-r--r--perl-install/modules.pm2
1 files changed, 2 insertions, 0 deletions
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';