Commit 9a2090fc authored by mtaylor@solace.(none)'s avatar mtaylor@solace.(none)
Browse files

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

parent e3e5a1ee
Loading
Loading
Loading
Loading
+4 −3
Original line number Diff line number Diff line
@@ -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";
	}