From 417dd15e9d8e3a2575614757202bcfb4bbe9c660 Mon Sep 17 00:00:00 2001
From: Fabrizio Gennari <fabrizio.ge@tiscali.it>
Date: Fri, 6 Apr 2018 10:58:30 +0200
Subject: [PATCH] Do not replace the literal string '0' with ''

---
 lib/SQL/Abstract.pm | 2 +-
 t/02where.t         | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index bd512cac..58244e8b 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -523,7 +523,7 @@ sub where {
 
   # where ?
   my ($sql, @bind) = $self->_recurse_where($where);
-  $sql = $sql ? $self->_sqlcase(' where ') . "( $sql )" : '';
+  $sql = (defined $sql and length $sql) ? $self->_sqlcase(' where ') . "( $sql )" : '';
 
   # order by?
   if ($order) {
diff --git a/t/02where.t b/t/02where.t
index 6d89b8c5..229770b6 100644
--- a/t/02where.t
+++ b/t/02where.t
@@ -386,6 +386,11 @@ my @handle_tests = (
         stmt  => " WHERE ( (NOT ( c AND (NOT ( (NOT a = ?) AND (NOT b) )) )) ) ",
         bind => [ 1 ],
     },
+    {
+        where => \"0",
+        stmt  => " WHERE ( 0 ) ",
+        bind => [ ],
+    },
 );
 
 for my $case (@handle_tests) {