summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-23 09:23:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-23 09:23:32 +0000
commit9ad54d99a0d3966fd353377e57f76b784c143198 (patch)
treed67349f8eb795632577d9ab9052403cfcd4b08ac
parent6ad698273ed4442c3f496167919f62aeafdd62fe (diff)
downloaddrakx-9ad54d99a0d3966fd353377e57f76b784c143198.tar
drakx-9ad54d99a0d3966fd353377e57f76b784c143198.tar.gz
drakx-9ad54d99a0d3966fd353377e57f76b784c143198.tar.bz2
drakx-9ad54d99a0d3966fd353377e57f76b784c143198.tar.xz
drakx-9ad54d99a0d3966fd353377e57f76b784c143198.zip
(getVarsFromSh): take care of comments
-rw-r--r--perl-install/common.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index d680311b7..4c75bd91e 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -428,6 +428,7 @@ sub getVarsFromSh($) {
local *F; open F, $_[0] or return;
local $_;
while (<F>) {
+ s/#.*//; # remove comments
my ($v, $val, $val2) =
/^\s* # leading space
(\w+) = # variable