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