Allow comments in query file
This commit is contained in:
parent
07d6692aa7
commit
9ca8fc67bb
|
@ -2997,6 +2997,8 @@ if (exists $commandline{namefromfile}) {
|
||||||
# Double chomp if needed
|
# Double chomp if needed
|
||||||
chomp($l) for (0..1);
|
chomp($l) for (0..1);
|
||||||
|
|
||||||
|
$l =~ s/#.*$//g;
|
||||||
|
|
||||||
my ($k, $sql_line) = split(/\s*=\s*/, $l);
|
my ($k, $sql_line) = split(/\s*=\s*/, $l);
|
||||||
|
|
||||||
if ($k eq $commandline{namefromfile}) {
|
if ($k eq $commandline{namefromfile}) {
|
||||||
|
|
Loading…
Reference in New Issue