strip whitespaces around query which confuse parser

diff --git a/CROSBI.pm b/CROSBI.pm
index 199484d..c6651a0 100644 (file)
--- a/CROSBI.pm
+++ b/CROSBI.pm
@@ -58,6 +58,9 @@ sub search {
 
        die "need query" unless defined $query;
 
 
        die "need query" unless defined $query;
 

+       $query =~ s/^\s+//;
+       $query =~ s/\s+$//;
+

        my $table = lc $self->{database};
        $table =~ s/^crosbi-//g;
 
        my $table = lc $self->{database};
        $table =~ s/^crosbi-//g;