Allow comments in query file

This commit is contained in:
Tómas Edwardsson 2010-09-06 17:10:55 +00:00
parent 07d6692aa7
commit 9ca8fc67bb
1 changed files with 2 additions and 0 deletions

View File

@ -2997,6 +2997,8 @@ if (exists $commandline{namefromfile}) {
# Double chomp if needed
chomp($l) for (0..1);
$l =~ s/#.*$//g;
my ($k, $sql_line) = split(/\s*=\s*/, $l);
if ($k eq $commandline{namefromfile}) {