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