perl/perl-DBD-SQLite
SHA256
8
0
Fork 0
forked from pool/perl-DBD-SQLite
Code Pull Requests Activity

OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-DBD-SQLite?expand=0&rev=3

Browse Source
This commit is contained in:
OBS User unknown
2008-02-08 19:21:57 +00:00
committed by Git OBS Bridge
parent 25f35075dc
commit be4efad97a
3 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
sqlite3-finalize.diff Normal file
View File

@@ -0,0 +1,20 @@
--- dbdimp.c
+++ dbdimp.c
@@ -399,7 +399,7 @@ sqlite_st_execute (SV *sth, imp_sth_t *i
continue;
}
/* There are bug reports that say this should be sqlite3_reset() */
- sqlite3_finalize(imp_sth->stmt);
+ sqlite3_reset(imp_sth->stmt);
sqlite_error(sth, (imp_xxh_t*)imp_sth, imp_sth->retval, (char*)sqlite3_errmsg(imp_dbh->db));
return -5;
}
@@ -419,7 +419,7 @@ sqlite_st_execute (SV *sth, imp_sth_t *i
sqlite_trace(5, "exec ok - %d rows, %d cols\n", imp_sth->nrow, DBIc_NUM_FIELDS(imp_sth));
return 0;
/* There are bug reports that say this should be sqlite3_reset() */
- default: sqlite3_finalize(imp_sth->stmt);
+ default: sqlite3_reset(imp_sth->stmt);
sqlite_error(sth, (imp_xxh_t*)imp_sth, imp_sth->retval, (char*)sqlite3_errmsg(imp_dbh->db));
return -6;
}