perl-DBD-SQLite/DBD-SQLite-1.11-type-information-segv.patch
Jose Pedro Oliveira 86e0e9b3b6 Rename: DBD-SQLite-1.11-VIEW-type-information-segv.patch ->
DBD-SQLite-1.11-type-information-segv.patch
2006-04-12 14:43:13 +00:00

23 lines
1002 B
Diff

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")) {