[Bast-commits] r9365 - SQL-Abstract/1.x/trunk/lib/SQL

[nigel at dev.catalyst.perl.org]

Author: nigel
Date: 2010-05-14 16:01:19 +0100 (Fri, 14 May 2010)
New Revision: 9365

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
Added check for defined to str equality test

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-05-14 09:57:40 UTC (rev 9364)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-05-14 15:01:19 UTC (rev 9365)
@@ -484,7 +484,7 @@
         else {
           $self->debug("Generic unary OP: $k - recursing as function");
           my ($sql, @bind) = $self->_where_func_generic ($op, $v);
-          $sql = "($sql)" unless $self->{_nested_func_lhs} eq $k;  # top level vs nested
+          $sql = "($sql)" unless (defined($self->{_nested_func_lhs}) && ($self->{_nested_func_lhs} eq $k));  # top level vs nested
           ($sql, @bind);
         }
       }