diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index af8c2565..62c3f899 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1484,13 +1484,14 @@ sub _assert_bindval_matches_bindtype {
 sub _join_sql_clauses {
   my ($self, $logic, $clauses_aref, $bind_aref) = @_;
 
-  if (@$clauses_aref > 1) {
+  my @clauses_aref = grep {$_} @$clauses_aref;
+  if (@clauses_aref > 1) {
     my $join  = " " . $self->_sqlcase($logic) . " ";
-    my $sql = '( ' . join($join, @$clauses_aref) . ' )';
+    my $sql = '( ' . join($join, @clauses_aref) . ' )';
     return ($sql, @$bind_aref);
   }
-  elsif (@$clauses_aref) {
-    return ($clauses_aref->[0], @$bind_aref); # no parentheses
+  elsif (@clauses_aref) {
+    return ($clauses_aref[0], @$bind_aref); # no parentheses
   }
   else {
     return (); # if no SQL, ignore @$bind_aref
diff --git a/t/02where.t b/t/02where.t
index 229770b6..d2ab36db 100644
--- a/t/02where.t
+++ b/t/02where.t
@@ -391,6 +391,11 @@ my @handle_tests = (
         stmt  => " WHERE ( 0 ) ",
         bind => [ ],
     },
+    {
+        where => { -and => [], -or => [ a => 1 ] },
+        stmt  => " WHERE ( a = ? ) ",
+        bind  => [ 1 ],
+    },
 );
 
 for my $case (@handle_tests) {