fixed split() arguments

This commit is contained in:
Páll Guðjón Sigurðsson 2010-09-06 17:22:26 +00:00
parent 8e70621aee
commit 2404d1261f
1 changed files with 2 additions and 1 deletions

View File

@ -2999,7 +2999,8 @@ if (exists $commandline{namefromfile}) {
$l =~ s/#.*$//g;
my ($k, $sql_line) = split(/\s*=\s*/, $l, 1);
my ($k, $sql_line) = split(/\s*=\s*/, $l, 2);
#printf("l: %s\nk: %s sql: %s\n", $l, $k, $sql_line);
if ($k eq $commandline{namefromfile}) {
$sql = $sql_line;