Strip comments from queries before explaining them. Fixes BUG#34339

This commit is contained in:
mtaylor@solace.(none) 2008-02-06 04:33:27 +01:00
parent e3e5a1ee14
commit 9a2090fcdd

View file

@ -196,9 +196,10 @@ if (defined ($help)) {
elsif (m/^\s+(.+)$/ ) { # command could be some lines ...
#print "multi-lined ($1)\n";
my ($A)=$1;
chomp $A;
$Param->{Query} .= " $1";
#print "multi-lined ($1)<<$Param->{Query}>>\n";
$A =~ s/\-\-.*//;
$Param->{Query} .= " $A";
#print "multi-lined ($A)<<$Param->{Query}>>\n";
}