Subject: | [PATCH] Silence undefined warnings in bleadperl |
Bleadperl now warns when undef is passed to uc(). While this isn't really a big deal in code
execution, it does cause test failures for SQL::Abstract. The patch below silences the
warnings and gets the tests to pass again.
Steve Peters
--- lib/SQL/Abstract.pm 2009-03-28 08:35:13.000000000 -0500
+++ lib/SQL/Abstract.pm.new 2009-03-30 08:17:27.000000000 -0500
@@ -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' ??