mirror of
https://github.com/SCST-project/scst.git
synced 2026-08-18 05:06:31 +00:00
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:
@@ -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+$//;
|
||||
|
||||
Reference in New Issue
Block a user