Fixed minor config file bug pointed out by Bart Van Assche.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@3918 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Mark Buechler
2011-11-11 17:50:08 +00:00
parent 851d6c2008
commit 58bd090c3e
+2 -3
View File
@@ -5052,8 +5052,8 @@ sub readConfigFile {
if (!$io);
while (my $line = <$io>) {
my($test, undef) = split(/\#/, $line, 2);
if ($test =~ /\[(.*)\s+.*\]/) {
($line, undef) = split(/\#/, $line, 2);
if ($line =~ /\[(.*)\s+.*\]/) {
my $parm = $1;
if (($parm eq 'HANDLER') || ($parm eq 'GROUP') ||
@@ -5118,7 +5118,6 @@ sub parseLine {
my $hash = shift;
my $child = shift;
($line, undef) = split(/\#/, $line, 2);
return if ($line =~ /^\s*$/);
$line =~ s/^\s+//; $line =~ s/\s+$//;