Skip Menu |

This queue is for tickets about the SQL-Abstract CPAN distribution.

Report information
The Basics
Id: 44669
Status: resolved
Priority: 0/
Queue: SQL-Abstract

People
Owner: Nobody in particular
Requestors: SMPETERS [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: 1.52



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' ??
On Mon Mar 30 09:25:50 2009, SMPETERS wrote: Show quoted text
> 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' ??
Committed to svn as r5921. Thanks.