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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-21 07:30:25 +0100 (Tue, 21 Apr 2009)
New Revision: 5921

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
Silence warning on bleadperl (by SMPETERS)

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2009-04-21 03:34:48 UTC (rev 5920)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2009-04-21 06:30:25 UTC (rev 5921)
@@ -63,7 +63,7 @@
   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' ??