From 9ad54d99a0d3966fd353377e57f76b784c143198 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Mar 2001 09:23:32 +0000
Subject: (getVarsFromSh): take care of comments

---
 perl-install/common.pm | 1 +
 1 file changed, 1 insertion(+)

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
-- 
cgit v1.2.1