You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
perl-DBD-SQLite/DBD-SQLite-1.11-type-inform...

23 lines
1002 B

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