Re: [devel] E: incoming reject: perl-DBD-SQLite-1.11-alt1.src.rpm

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 1997 bytes --]

On Fri, Apr 14, 2006 at 07:33:38PM +0400, Денис Смирнов wrote:
> On Fri, Apr 14, 2006 at 06:43:23PM +0400, Dmitry V. Levin wrote:
> 
> >> perl-DBD-SQLite не работает с sqlite3 из сизифа,
> DVL> А почему?
> 
> Очень хороший вопрос. Моя медитация над кодом ни к чему не привела. В
> редхате поступили так же как я.

А как в редхате поступили?

$ cvs update perl-DBD-SQLite
cvs update: nothing known about perl-DBD-SQLite
$ cat CVS/R*
devel
:pserver:anonymous@cvs.fedora.redhat.com:/cvs/dist
$

> Судя по всему у них слегка изменилось API, но внятного описания я в их
> changelog'е не нашел.

В общем я разобрался в чём дело.  После вот этого патча всё работает:

--- DBD-SQLite-1.09/dbdimp.c-	2005-06-20 17:53:01 +0400
+++ DBD-SQLite-1.09/dbdimp.c	2006-04-16 02:29:37 +0400
@@ -259,7 +259,7 @@
     imp_sth->retval = SQLITE_OK;
     imp_sth->params = newAV();
 
-    if ((retval = sqlite3_prepare(imp_dbh->db, statement, 0, &(imp_sth->stmt), &extra))
+    if ((retval = sqlite3_prepare(imp_dbh->db, statement, -1, &(imp_sth->stmt), &extra))
         != SQLITE_OK)
     {
         if (imp_sth->stmt) {
@@ -319,7 +319,7 @@
         psv = hv_fetch((HV*)SvRV(sth), "Statement", 9, 0);
         statement = (psv && SvOK(*psv)) ? SvPV_nolen(*psv) : "";
         sqlite_trace(3, "re-prepare statement %s", statement);
-        if ((retval = sqlite3_prepare(imp_dbh->db, statement, 0, &(imp_sth->stmt), &extra))
+        if ((retval = sqlite3_prepare(imp_dbh->db, statement, -1, &(imp_sth->stmt), &extra))
             != SQLITE_OK)
         {
             if (imp_sth->stmt) {

Здесь этот аргумент по смыслу означает strlen(statement); раньше он
просто не использовался, а теперь в sqlite3_prepare() появилась проверка
на >= 0 с некоторой неприятной спецификой (см. sqlite/src/prepare.c).

См. тж. http://www.initd.org/tracker/pysqlite/ticket/143
http://www.sqlite.org/cvstrac/tktview?tn=1554

В общем пока предлагаю до понедельника ничего не делать. :)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]