forked from pool/perl-DBD-SQLite
21 lines
1.0 KiB
Diff
21 lines
1.0 KiB
Diff
|
--- 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;
|
||
|
|
}
|