r31458 - in /branches/upstream/libsql-statement-perl/current: Changes MANIFEST MANIFEST.SKIP META.yml lib/SQL/Parser.pm.orig lib/SQL/Statement.pm t/01prepare.t.orig t/06group.t.orig

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Thu Mar 5 15:32:17 UTC 2009


Author: ryan52-guest
Date: Thu Mar  5 15:32:14 2009
New Revision: 31458

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31458
Log:
[svn-upgrade] Integrating new upstream version, libsql-statement-perl (1.20)

Removed:
    branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm.orig
    branches/upstream/libsql-statement-perl/current/t/01prepare.t.orig
    branches/upstream/libsql-statement-perl/current/t/06group.t.orig
Modified:
    branches/upstream/libsql-statement-perl/current/Changes
    branches/upstream/libsql-statement-perl/current/MANIFEST
    branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP
    branches/upstream/libsql-statement-perl/current/META.yml
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm

Modified: branches/upstream/libsql-statement-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/Changes?rev=31458&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/Changes (original)
+++ branches/upstream/libsql-statement-perl/current/Changes Thu Mar  5 15:32:14 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: branches/upstream/libsql-statement-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/MANIFEST?rev=31458&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/MANIFEST (original)
+++ branches/upstream/libsql-statement-perl/current/MANIFEST Thu Mar  5 15:32:14 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: branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP?rev=31458&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP Thu Mar  5 15:32:14 2009
@@ -1,2 +1,5 @@
 \B\.svn\b
-\B\.[Bb][Aa][Kk]\b
+\.[Bb][Aa][Kk]$
+\.orig$
+\.old$
+Makefile$

Modified: branches/upstream/libsql-statement-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/META.yml?rev=31458&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/META.yml (original)
+++ branches/upstream/libsql-statement-perl/current/META.yml Thu Mar  5 15:32:14 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm?rev=31458&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm Thu Mar  5 15:32:14 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;
         }




More information about the Pkg-perl-cvs-commits mailing list