openpkg-packages/perl-dbi/perl-dbi.patch

Index: DBD-SQLite-1.14/Makefile.PL
--- DBD-SQLite-1.14/Makefile.PL.orig	2007-08-28 21:57:09 +0200
+++ DBD-SQLite-1.14/Makefile.PL	2007-09-20 09:40:47 +0200
@@ -10,34 +10,6 @@
 }
 use Config;
 use strict;
-eval {
-    require DBD::SQLite;
-    if ($DBD::SQLite::VERSION < 1.0) {
-        print <<EOT;
-
-**** WARNING **** WARNING **** WARNING **** WARNING **** WARNING ****
-
-Your version of DBD::SQLite currently installed ($DBD::SQLite::VERSION) uses
-the old sqlite database format. This version of DBD::SQLite will *NOT*
-open these files, and installing this module may cause problems on your
-system. If this is a live environment you should upgrade with caution.
-
-To upgrade a database, download and install both sqlite 2.x and 3.x from
-http://www.sqlite.org/ and issue:
-
-  sqlite OLD.DB .dump | sqlite3 NEW.DB
-
-DBD::SQLite will NOT automatically upgrade a database for you, and using
-this version against an old SQLite database WILL lead to database
-corruption.
-
-EOT
-        if (prompt("Continue?", "N") !~ /^y/i) {
-            print "Exiting\n";
-            exit -1;
-        }
-    }
-};
 
 # 2005/6/19, by rjray@blackperl.com
 #
@@ -111,18 +83,19 @@
 
 my $nlid = $DBI::VERSION > 1.42 ? '' : '-Dno_last_insert_id';
 
-my $libs = '';
-$libs .= "-L$sqlite_lib " if ($sqlite_lib); 
-$libs .= "-lsqlite3 " unless ($force_local);
+my $inc  = `@l_prefix@/bin/pkg-config sqlite3 --cflags-only-I`;
+$inc     =~ s/\r?\n$//s;
+my $libs = `@l_prefix@/bin/pkg-config sqlite3 --libs`;
+$libs    =~ s/\r?\n$//s;
 
 WriteMakefile(
     'NAME'          => 'DBD::SQLite',
     'VERSION_FROM'  => 'lib/DBD/SQLite.pm', # finds $VERSION
     'PREREQ_PM'     => {DBI => 1.21}, # e.g., Module::Name => 1.1
     'OBJECT'        => ($force_local) ? '$(O_FILES)' : 'SQLite.o dbdimp.o',
-    'INC'           => '-I. -I$(DBI_INSTARCH_DIR)' .
+    'INC'           => $inc . ' -I. -I$(DBI_INSTARCH_DIR)' .
                        (($sqlite_inc) ? " -I$sqlite_inc" : ''),
-    $libs ? ('LIBS' => $libs) : (),
+    'LIBS'          => [ $libs ],
     'OPTIMIZE'      => "-O2",
     'DEFINE'        => "-DSQLITE_CORE -DSQLITE_ENABLE_FTS2 -DNDEBUG=1 -DSQLITE_PTR_SZ=$Config{ptrsize}" .
                        ( ($Config{d_usleep} ||
Index: DBD-SQLite-1.14/dbdimp.c
--- DBD-SQLite-1.14/dbdimp.c.orig	2007-08-24 04:51:25 +0200
+++ DBD-SQLite-1.14/dbdimp.c	2007-09-20 09:42:02 +0200
@@ -394,15 +394,18 @@
     
     sqlite_trace(3, "Execute returned %d cols\n", DBIc_NUM_FIELDS(imp_sth));
     if (DBIc_NUM_FIELDS(imp_sth) == 0) {
+        char *defererr = strdup((char*)sqlite3_errmsg(imp_dbh->db));
         while ((imp_sth->retval = sqlite3_step(imp_sth->stmt)) != SQLITE_DONE) {
             if (imp_sth->retval == SQLITE_ROW) {
                 continue;
             }
             /* There are bug reports that say this should be sqlite3_reset() */
             sqlite3_finalize(imp_sth->stmt);
-            sqlite_error(sth, (imp_xxh_t*)imp_sth, imp_sth->retval, (char*)sqlite3_errmsg(imp_dbh->db));
+            sqlite_error(sth, (imp_xxh_t*)imp_sth, imp_sth->retval, defererr);
+            free(defererr);
             return -5;
         }
+        free(defererr);
         /* warn("Finalize\n"); */
         sqlite3_reset(imp_sth->stmt);
         imp_sth->nrow = sqlite3_changes(imp_dbh->db);
Index: DBD-SQLite-1.14/dbdimp.h
--- DBD-SQLite-1.14/dbdimp.h.orig	2007-08-23 02:45:08 +0200
+++ DBD-SQLite-1.14/dbdimp.h	2007-09-20 09:42:28 +0200
@@ -4,7 +4,7 @@
 #define _DBDIMP_H   1
 
 #include "SQLiteXS.h"
-#include "sqliteInt.h"
+#include "sqlite3.h"
 
 /* 30 second timeout by default */
 #define SQL_TIMEOUT 30000
Index: DBD-cego/Makefile.PL
--- DBD-cego/Makefile.PL.orig	2007-06-25 20:38:07 +0200
+++ DBD-cego/Makefile.PL	2007-06-26 21:07:10 +0200
@@ -43,7 +43,7 @@
     'VERSION_FROM'  => 'Cego.pm',
     'PREREQ_PM'     => {DBI => 1.03},
     'OBJECT'        => '$(O_FILES)',
-    'INC'           => '-I$(DBI_INSTARCH_DIR) -I' . $opt->{'prefix'} . '/include',
+    'INC'           => '-I$(DBI_INSTARCH_DIR) -I' . $opt->{'prefix'} . '/include/cego',
     'MYEXTLIB'    => $opt->{'prefix'} . "/lib/libCego.a " 
 	      . $opt->{'prefix'} . "/lib/libXML.a " 
 	      . $opt->{'prefix'} . "/lib/libBase.a",
Index: DBD-mysql-4.005/dbdimp.h
--- DBD-mysql-4.005/dbdimp.h.orig	2007-06-07 13:51:16 +0200
+++ DBD-mysql-4.005/dbdimp.h	2007-06-26 21:06:20 +0200
@@ -19,6 +19,7 @@
  *  Header files we use
  */
 #include <DBIXS.h>  /* installed by the DBI module                        */
+#include <my_global.h>
 #include <mysql.h>  /* Comes with MySQL-devel */
 #include <mysqld_error.h>  /* Comes MySQL */
 #include <errmsg.h> /* Comes with MySQL-devel */