r1832 - in packages/libsql-statement-perl/trunk: debian lib/SQL
Gunnar Wolf
gwolf at costa.debian.org
Mon Jan 2 17:42:16 UTC 2006
Author: gwolf
Date: 2006-01-02 17:42:13 +0000 (Mon, 02 Jan 2006)
New Revision: 1832
Modified:
packages/libsql-statement-perl/trunk/debian/changelog
packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm
Log:
Allows for updates based on previous values of the field
Modified: packages/libsql-statement-perl/trunk/debian/changelog
===================================================================
--- packages/libsql-statement-perl/trunk/debian/changelog 2006-01-02 17:36:25 UTC (rev 1831)
+++ packages/libsql-statement-perl/trunk/debian/changelog 2006-01-02 17:42:13 UTC (rev 1832)
@@ -1,3 +1,10 @@
+libsql-statement-perl (1.14-2) unstable; urgency=low
+
+ * Added patch by Niko Tyni allowing for field updates based on its
+ previous values (Closes: #311788)
+
+ -- Gunnar Wolf <gwolf at debian.org> Mon, 2 Jan 2006 11:37:56 -0600
+
libsql-statement-perl (1.14-1) unstable; urgency=low
* New upstream release
Modified: packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm
===================================================================
--- packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm 2006-01-02 17:36:25 UTC (rev 1831)
+++ packages/libsql-statement-perl/trunk/lib/SQL/Statement.pm 2006-01-02 17:42:13 UTC (rev 1832)
@@ -1757,7 +1757,8 @@
# we use the existing S::S::Func object
#
use SQL::Statement::Util;
- if ( $type eq 'function' and $structure->{name} !~ /(TRIM|SUBSTRING)/i ){
+ if ( $type eq 'function' and $structure->{name} =~ /[A-Z]/ and
+ $structure->{name}!~ /(TRIM|SUBSTRING)/i ){
$self->{loaded_function}->{$structure->{name}}
||= SQL::Statement::Util::Function->new($structure);
$structure = $self->{loaded_function}->{$structure->{name}};
More information about the Pkg-perl-cvs-commits
mailing list