rpms/perl-DBD-SQLite/devel DBD-SQLite-1.11-type-information-segv.patch, NONE, 1.1 DBD-SQLite-1.11-VIEW-type-information-segv.patch, 1.1, NONE

[Jose Pedro Oliveira (jpo)]

Author: jpo

Update of /cvs/extras/rpms/perl-DBD-SQLite/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv12919

Added Files:
	DBD-SQLite-1.11-type-information-segv.patch 
Removed Files:
	DBD-SQLite-1.11-VIEW-type-information-segv.patch 
Log Message:
Rename: DBD-SQLite-1.11-VIEW-type-information-segv.patch -> DBD-SQLite-1.11-type-information-segv.patch

DBD-SQLite-1.11-type-information-segv.patch:

--- NEW FILE DBD-SQLite-1.11-type-information-segv.patch ---
diff -ur DBD-SQLite-1.11.orig/dbdimp.c DBD-SQLite-1.11/dbdimp.c
--- DBD-SQLite-1.11.orig/dbdimp.c	2005-12-02 17:28:53.000000000 +0000
+++ DBD-SQLite-1.11/dbdimp.c	2006-02-06 12:10:31.000000000 +0000
@@ -677,11 +677,15 @@
         retsv = sv_2mortal(newRV(sv_2mortal((SV*)av)));
         for (n = 0; n < i; n++) {
             const char *fieldtype = sqlite3_column_decltype(imp_sth->stmt, n);
-            int type = sqlite3_column_type(imp_sth->stmt, n);
+            /* int type = sqlite3_column_type(imp_sth->stmt, n); */
             /* warn("got type: %d = %s\n", type, fieldtype); */
-            type = type_to_odbc_type(type);
+            /* type = type_to_odbc_type(type); */
             /* av_store(av, n, newSViv(type)); */
-            av_store(av, n, newSVpv(fieldtype, 0));
+	    if (fieldtype == NULL) {
+		av_store(av, n, newSVpv("INTEGER", 0));
+	    } else {
+                av_store(av, n, newSVpv(fieldtype, 0));
+	    }
         }
     }
     else if (strEQ(key, "NULLABLE")) {


--- DBD-SQLite-1.11-VIEW-type-information-segv.patch DELETED ---