X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTree.pm;h=decc5ed208b4da1f6bf1cea1bb66d6a97c9a1ca5;hb=70c6f0e91c090ef8fe0d2ceb1466bcf9e484cfb9;hp=9edc1d722dd41ef7cebaf9ef386b686e312c965f;hpb=a4d17ff1e4ca5f981aacbeab10b0efa93ac047d9;p=scpubgit%2FQ-Branch.git

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index 9edc1d7..decc5ed 100644
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -325,6 +325,8 @@ sub new {
 sub parse {
   my ($self, $s) = @_;
 
+  return [] unless defined $s;
+
   # tokenize string, and remove all optional whitespace
   my $tokens = [];
   foreach my $token (split $tokenizer_re, $s) {