- added perl-DBD-SQLite2-fetchrow.patch from Debian:

Fix segfault when fetchrow() is called again after it has
  returned an empty list once. (#317453)
- added perl-DBD-SQLite2-no-return-in-nonvoid-function.patch:
  Fix function returning random data

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-DBD-SQLite2?expand=0&rev=3
This commit is contained in:
Lars Vogdt
2012-06-07 17:53:33 +00:00
committed by Git OBS Bridge
parent eab4467bd7
commit 900f3d7e4b
4 changed files with 46 additions and 0 deletions

View File

@@ -0,0 +1,19 @@
Author: Niko Tyni <ntyni@iki.fi>
Description: Fix segfault when fetchrow() is called again after it has
returned an empty list once. (#317453)
If there is a reason upstream has commented out the check
for an active handle, he's not telling it. (CPAN #16451)
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -473,11 +473,9 @@ sqlite2_st_fetch (SV *sth, imp_sth_t *im
/* warn("current_entry == %d\nnumFields == %d\nnrow == %d",
current_entry, numFields, imp_sth->nrow); */
- /*
if (!DBIc_ACTIVE(imp_sth)) {
return Nullav;
}
- */
if ((imp_sth->retval == SQLITE_DONE) || (imp_sth->retval == SQLITE_ERROR)) {
sqlite2_st_finish(sth, imp_sth);