cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix segfault, okay robert@

Browse Source
This commit is contained in:
espie 2007-05-15 09:37:58 +00:00
parent f78de1f65f
commit 190127f355
2 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
databases/p5-DBD-SQLite/Makefile
View File

@ -1,4 +1,4 @@
# $OpenBSD: Makefile,v 1.11 2006/12/10 23:17:42 espie Exp $
# $OpenBSD: Makefile,v 1.12 2007/05/15 09:37:58 espie Exp $
SHARED_ONLY= Yes
@ -6,7 +6,7 @@ COMMENT= 'SQLite drivers for the Perl DBI'
MODULES= cpan
DISTNAME= DBD-SQLite-1.12
PKGNAME= p5-${DISTNAME}v0
PKGNAME= p5-${DISTNAME}p0v0
CATEGORIES= databases perl5
MAINTAINER= Robert Nagy <robert@openbsd.org>

23
databases/p5-DBD-SQLite/patches/patch-dbdimp_c Normal file
View File

@ -0,0 +1,23 @@
$OpenBSD: patch-dbdimp_c,v 1.3 2007/05/15 09:37:58 espie Exp $
--- dbdimp.c.orig Mon Apr 10 03:50:05 2006
+++ dbdimp.c Tue May 15 11:09:38 2007
@@ -677,11 +677,14 @@ sqlite_st_FETCH_attrib (SV *sth, imp_sth_t *imp_sth, S
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);
- /* warn("got type: %d = %s\n", type, fieldtype); */
- type = type_to_odbc_type(type);
- /* av_store(av, n, newSViv(type)); */
- av_store(av, n, newSVpv(fieldtype, 0));
+ int type = sqlite3_column_type(imp_sth->stmt, n);
+ /* warn("got type: %d = %s\n", type, fieldtype); */
+ type = type_to_odbc_type(type);
+ /* av_store(av, n, newSViv(type)); */
+ if (fieldtype)
+ av_store(av, n, newSVpv(fieldtype, 0));
+ else
+ av_store(av, n, newSVpv("VARCHAR", 0));
}
}
else if (strEQ(key, "NULLABLE")) {