diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 08:12:55 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 08:12:55 +0000 |
| commit | 76aef5df8655820487dc0eb0ad1e13066f0f33bb (patch) | |
| tree | 4c215bd30fafe3cba33a882e7acf5fd1b0d3dfd9 /perl-install/modules.pm | |
| parent | 45f18adacd2637793a07bbb60283eeb2a811fc52 (diff) | |
| download | drakx-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar drakx-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.gz drakx-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.bz2 drakx-76aef5df8655820487dc0eb0ad1e13066f0f33bb.tar.xz drakx-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.
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 2 |
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'; |