From: Peter Rabbitson Date: Tue, 21 Apr 2009 06:30:25 +0000 (+0000) Subject: Silence warning on bleadperl (by SMPETERS) X-Git-Tag: v1.70~181 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef559da3a167f47936666f475a56a3992e0b2619;p=dbsrgits%2FSQL-Abstract.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' ??