r31462 - in /trunk/libsql-statement-perl: Changes MANIFEST MANIFEST.SKIP META.yml debian/changelog lib/SQL/Statement.pm

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Thu Mar  5 15:34:27 2009
New Revision: 31462

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31462
Log:
another new upstream release

Modified:
    trunk/libsql-statement-perl/Changes
    trunk/libsql-statement-perl/MANIFEST
    trunk/libsql-statement-perl/MANIFEST.SKIP
    trunk/libsql-statement-perl/META.yml
    trunk/libsql-statement-perl/debian/changelog
    trunk/libsql-statement-perl/lib/SQL/Statement.pm

Modified: trunk/libsql-statement-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/Changes?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/Changes (original)
+++ trunk/libsql-statement-perl/Changes Thu Mar  5 15:34:27 2009
@@ -1,4 +1,12 @@
 Changes log for Perl extension SQL::Statement
+
+Version 1.20, released March 5th, 2009
+------------------------------------------
+
+* Fixed Makefile in MANIFEST (reported by Havard Eidnes in RT #43586)
+* Fixed invalid label FETCHROW used (reported by Michael in RT #42982)
+* separated update_one_row and update_specific_row method names for tables
+  to avoid confusion
 
 Version 1.19, released February 6th, 2009
 ------------------------------------------

Modified: trunk/libsql-statement-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/MANIFEST?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/MANIFEST (original)
+++ trunk/libsql-statement-perl/MANIFEST Thu Mar  5 15:34:27 2009
@@ -12,7 +12,6 @@
 lib/SQL/Statement/Structure.pod
 lib/SQL/Statement/Syntax.pod
 lib/SQL/Statement/Util.pm
-Makefile
 Makefile.PL
 MANIFEST			This list of files
 MANIFEST.SKIP
@@ -25,7 +24,6 @@
 t/04names.t
 t/05create.t
 t/06group.t
-t/06group.t.orig
 t/07case.t
 t/08join.t
 t/09ops.t

Modified: trunk/libsql-statement-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/MANIFEST.SKIP?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/MANIFEST.SKIP (original)
+++ trunk/libsql-statement-perl/MANIFEST.SKIP Thu Mar  5 15:34:27 2009
@@ -1,2 +1,5 @@
 \B\.svn\b
-\B\.[Bb][Aa][Kk]\b
+\.[Bb][Aa][Kk]$
+\.orig$
+\.old$
+Makefile$

Modified: trunk/libsql-statement-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/META.yml?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/META.yml (original)
+++ trunk/libsql-statement-perl/META.yml Thu Mar  5 15:34:27 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               SQL-Statement
-version:            1.19
+version:            1.20
 abstract:           ~
 author:
     - Jeff Zucker <jeff at vpservices.com>, Jens Rehsack <rehsack at web.de>

Modified: trunk/libsql-statement-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/changelog?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/changelog (original)
+++ trunk/libsql-statement-perl/debian/changelog Thu Mar  5 15:34:27 2009
@@ -1,4 +1,4 @@
-libsql-statement-perl (1.19-1) UNRELEASED; urgency=low
+libsql-statement-perl (1.20-1) UNRELEASED; urgency=low
   
   TODO: FTFBS, t/16morejoins fails if libdbd-csv-perl 
   is installed, 
@@ -35,7 +35,7 @@
   * Add myself to uploaders
   * Add libclone-perl and libparams-util-perl to B-D-I and Depends
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 03 Mar 2009 17:54:17 -0800
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Thu, 05 Mar 2009 07:33:45 -0800
 
 libsql-statement-perl (1.15-3) unstable; urgency=low
 

Modified: trunk/libsql-statement-perl/lib/SQL/Statement.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement.pm?rev=31462&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement.pm Thu Mar  5 15:34:27 2009
@@ -24,7 +24,7 @@
 
 #use locale;
 
-$VERSION  = '1.19';
+$VERSION  = '1.20';
 $dlm      = '~';
 $arg_num  = 0;
 $warg_num = 0;
@@ -474,7 +474,8 @@
         if ( $self->eval_where( $eval, $tname, $array ) )
         {
             my $originalValues;
-            if ( $self->{fetched_from_key} and $table->can('update_one_row') )
+            if ( not( $self->{fetched_from_key} )
+                 and $table->can('update_specific_row') )
             {
                 $originalValues = clone($array);
                 $array          = $self->{fetched_value};
@@ -510,10 +511,10 @@
             # Martin Fabiani <martin at fabiani.net>:
             # the following block is the most important enhancement to SQL::Statement::UPDATE
             if ( not( $self->{fetched_from_key} )
-                 and $table->can('update_one_row') )
-            {
-                $table->update_one_row( $data, $array, $originalValues );
-                next FETCH_ROW;
+                 and $table->can('update_specific_row') )
+            {
+                $table->update_specific_row( $data, $array, $originalValues );
+                next;
             }
             ++$affected;
         }