r54764 - in /branches/upstream/libsql-abstract-perl/current: Changes META.yml lib/SQL/Abstract.pm t/01generate.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Mar 25 07:48:20 UTC 2010
Author: ansgar-guest
Date: Thu Mar 25 07:48:06 2010
New Revision: 54764
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54764
Log:
[svn-upgrade] Integrating new upstream version, libsql-abstract-perl (1.63)
Modified:
branches/upstream/libsql-abstract-perl/current/Changes
branches/upstream/libsql-abstract-perl/current/META.yml
branches/upstream/libsql-abstract-perl/current/lib/SQL/Abstract.pm
branches/upstream/libsql-abstract-perl/current/t/01generate.t
Modified: branches/upstream/libsql-abstract-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-abstract-perl/current/Changes?rev=54764&op=diff
==============================================================================
--- branches/upstream/libsql-abstract-perl/current/Changes (original)
+++ branches/upstream/libsql-abstract-perl/current/Changes Thu Mar 25 07:48:06 2010
@@ -1,4 +1,8 @@
Revision history for SQL::Abstract
+
+revision 1.63 2010-03-24 09:56 (UTC)
+----------------------------
+ - Add ILIKE to the core list of comparision ops
revision 1.62 2010-03-15 11:06 (UTC)
----------------------------
Modified: branches/upstream/libsql-abstract-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-abstract-perl/current/META.yml?rev=54764&op=diff
==============================================================================
--- branches/upstream/libsql-abstract-perl/current/META.yml (original)
+++ branches/upstream/libsql-abstract-perl/current/META.yml Thu Mar 25 07:48:06 2010
@@ -27,4 +27,4 @@
perl: 5.6.2
resources:
license: http://dev.perl.org/licenses/
-version: 1.62
+version: 1.63
Modified: branches/upstream/libsql-abstract-perl/current/lib/SQL/Abstract.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-abstract-perl/current/lib/SQL/Abstract.pm?rev=54764&op=diff
==============================================================================
--- branches/upstream/libsql-abstract-perl/current/lib/SQL/Abstract.pm (original)
+++ branches/upstream/libsql-abstract-perl/current/lib/SQL/Abstract.pm Thu Mar 25 07:48:06 2010
@@ -15,7 +15,7 @@
# GLOBALS
#======================================================================
-our $VERSION = '1.62';
+our $VERSION = '1.63';
# This would confuse some packagers
#$VERSION = eval $VERSION; # numify for warning-free dev releases
@@ -84,7 +84,7 @@
# generic SQL comparison operators
my $anchored_cmp_ops = join ('|', map { '^' . $_ . '$' } (
- '(?:is \s+)? (?:not \s+)? like',
+ '(?:is \s+)? (?:not \s+)? i? like',
'is',
(map { quotemeta($_) } (qw/ < > != <> = <= >= /) ),
));
Modified: branches/upstream/libsql-abstract-perl/current/t/01generate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-abstract-perl/current/t/01generate.t?rev=54764&op=diff
==============================================================================
--- branches/upstream/libsql-abstract-perl/current/t/01generate.t (original)
+++ branches/upstream/libsql-abstract-perl/current/t/01generate.t Thu Mar 25 07:48:06 2010
@@ -262,13 +262,13 @@
#29
{
func => 'select',
- args => ['jeff', '*', { name => {'like', '%smith%', -not_in => ['Nate','Jim','Bob','Sally']},
+ args => ['jeff', '*', { name => {'ilike', '%smith%', -not_in => ['Nate','Jim','Bob','Sally']},
-nest => [ -or => [ -and => [age => { -between => [20,30] }, age => {'!=', 25} ],
yob => {'<', 1976} ] ] } ],
stmt => 'SELECT * FROM jeff WHERE ( ( ( ( ( ( ( age BETWEEN ? AND ? ) AND ( age != ? ) ) ) OR ( yob < ? ) ) ) )'
- . ' AND name NOT IN ( ?, ?, ?, ? ) AND name LIKE ? )',
+ . ' AND name NOT IN ( ?, ?, ?, ? ) AND name ILIKE ? )',
stmt_q => 'SELECT * FROM `jeff` WHERE ( ( ( ( ( ( ( `age` BETWEEN ? AND ? ) AND ( `age` != ? ) ) ) OR ( `yob` < ? ) ) ) )'
- . ' AND `name` NOT IN ( ?, ?, ?, ? ) AND `name` LIKE ? )',
+ . ' AND `name` NOT IN ( ?, ?, ?, ? ) AND `name` ILIKE ? )',
bind => [qw(20 30 25 1976 Nate Jim Bob Sally %smith%)]
},
#30
More information about the Pkg-perl-cvs-commits
mailing list