From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 21 Apr 2009 06:30:25 +0000 (+0000)
Subject: Silence warning on bleadperl (by SMPETERS)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef559da3a167f47936666f475a56a3992e0b2619;p=scpubgit%2FQ-Branch.git

Silence warning on bleadperl (by SMPETERS)
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 457f305..f5bbf62 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -63,7 +63,7 @@ sub new {
   delete $opt{case} if $opt{case} && $opt{case} ne 'lower';
 
   # default logic for interpreting arrayrefs
-  $opt{logic} = uc $opt{logic} || 'OR';
+  $opt{logic} = $opt{logic} ? uc $opt{logic} : 'OR';
 
   # how to return bind vars
   # LDNOTE: changed nwiger code : why this 'delete' ??