- 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:
committed by
Git OBS Bridge
parent
eab4467bd7
commit
900f3d7e4b
19
perl-DBD-SQLite2-fetchrow.patch
Normal file
19
perl-DBD-SQLite2-fetchrow.patch
Normal 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);
|
Reference in New Issue
Block a user