From 58bd090c3ebd155818167e459bd88f43888c1890 Mon Sep 17 00:00:00 2001
From: Mark Buechler <mark.buechler@gmail.com>
Date: Fri, 11 Nov 2011 17:50:08 +0000
Subject: [PATCH] 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
---
 scstadmin/scstadmin.sysfs/scstadmin | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index fc76434dd..ca84661af 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -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+$//;