r54767 - in /trunk/libsql-abstract-perl: Changes META.yml debian/changelog debian/source/ debian/source/format lib/SQL/Abstract.pm t/01generate.t

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Thu Mar 25 08:03:51 UTC 2010


Author: ansgar-guest
Date: Thu Mar 25 08:03:37 2010
New Revision: 54767

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54767
Log:
* New upstream release.
* Use source format 3.0 (quilt).

Added:
    trunk/libsql-abstract-perl/debian/source/
    trunk/libsql-abstract-perl/debian/source/format
Modified:
    trunk/libsql-abstract-perl/Changes
    trunk/libsql-abstract-perl/META.yml
    trunk/libsql-abstract-perl/debian/changelog
    trunk/libsql-abstract-perl/lib/SQL/Abstract.pm
    trunk/libsql-abstract-perl/t/01generate.t

Modified: trunk/libsql-abstract-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/Changes?rev=54767&op=diff
==============================================================================
--- trunk/libsql-abstract-perl/Changes (original)
+++ trunk/libsql-abstract-perl/Changes Thu Mar 25 08:03:37 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: trunk/libsql-abstract-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/META.yml?rev=54767&op=diff
==============================================================================
--- trunk/libsql-abstract-perl/META.yml (original)
+++ trunk/libsql-abstract-perl/META.yml Thu Mar 25 08:03:37 2010
@@ -27,4 +27,4 @@
   perl: 5.6.2
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.62
+version: 1.63

Modified: trunk/libsql-abstract-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/debian/changelog?rev=54767&op=diff
==============================================================================
--- trunk/libsql-abstract-perl/debian/changelog (original)
+++ trunk/libsql-abstract-perl/debian/changelog Thu Mar 25 08:03:37 2010
@@ -1,3 +1,10 @@
+libsql-abstract-perl (1.63-1) unstable; urgency=low
+
+  * New upstream release.
+  * Use source format 3.0 (quilt).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Thu, 25 Mar 2010 17:00:39 +0900
+
 libsql-abstract-perl (1.62-1) unstable; urgency=low
 
   * New upstream release

Added: trunk/libsql-abstract-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/debian/source/format?rev=54767&op=file
==============================================================================
--- trunk/libsql-abstract-perl/debian/source/format (added)
+++ trunk/libsql-abstract-perl/debian/source/format Thu Mar 25 08:03:37 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/libsql-abstract-perl/lib/SQL/Abstract.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/lib/SQL/Abstract.pm?rev=54767&op=diff
==============================================================================
--- trunk/libsql-abstract-perl/lib/SQL/Abstract.pm (original)
+++ trunk/libsql-abstract-perl/lib/SQL/Abstract.pm Thu Mar 25 08:03:37 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: trunk/libsql-abstract-perl/t/01generate.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-abstract-perl/t/01generate.t?rev=54767&op=diff
==============================================================================
--- trunk/libsql-abstract-perl/t/01generate.t (original)
+++ trunk/libsql-abstract-perl/t/01generate.t Thu Mar 25 08:03:37 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