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

Accepting request 909334 from home:tinita:branches:devel:languages:perl

Browse Source 
- Add patch silence_sqlite_unicode_deprecation_warning.patch
   See https://github.com/DBD-SQLite/DBD-SQLite/issues/87

OBS-URL: https://build.opensuse.org/request/show/909334
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-DBD-SQLite?expand=0&rev=66
This commit is contained in:
Tina Müller
2021-07-30 07:59:12 +00:00
committed by Git OBS Bridge
parent fa56dcb9e2
commit e497e6fb54
4 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpanspec.yml
View File

@@ -4,8 +4,8 @@
#sources:
# - source1
# - source2
#patches:
# foo.patch: -p1
patches:
silence_sqlite_unicode_deprecation_warning.patch: -p1
# bar.patch:
#preamble: |-
# BuildRequires: gcc-c++

6
perl-DBD-SQLite.changes
View File

@@ -1,3 +1,9 @@
-------------------------------------------------------------------
Fri Jul 30 07:51:14 UTC 2021 - Tina Müller <tina.mueller@suse.com>
- Add patch silence_sqlite_unicode_deprecation_warning.patch
See https://github.com/DBD-SQLite/DBD-SQLite/issues/87
-------------------------------------------------------------------
Fri Jul 23 03:06:56 UTC 2021 - Tina Müller <timueller+perl@suse.de>

3
perl-DBD-SQLite.spec
View File

@@ -25,6 +25,7 @@ License: Artistic-1.0 OR GPL-1.0-or-later
URL: https://metacpan.org/release/%{cpan_name}
Source0: https://cpan.metacpan.org/authors/id/I/IS/ISHIGAKI/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
Patch0: silence_sqlite_unicode_deprecation_warning.patch
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(DBI) >= 1.57
@@ -70,7 +71,7 @@ currently many statement attributes are not implemented or are limited by
the typeless nature of the SQLite database.
%prep
%autosetup -n %{cpan_name}-%{version}
%autosetup -n %{cpan_name}-%{version} -p1
%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"

16
silence_sqlite_unicode_deprecation_warning.patch Normal file
View File

@@ -0,0 +1,16 @@
diff --git a/dbdimp.c b/dbdimp.c
index a8361ac..6dbff60 100644
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -857,7 +857,10 @@ sqlite_db_STORE_attrib(SV *dbh, imp_dbh_t *imp_dbh, SV *keysv, SV *valuesv)
}
if (strEQ(key, "sqlite_unicode") || strEQ(key, "unicode")) {
- _warn_deprecated_if_possible(key, "sqlite_string_mode");
+ if (strEQ(key, "unicode")) {
+ /* it's too early to warn the deprecation of sqlite_unicode as it's widely used */
+ _warn_deprecated_if_possible(key, "sqlite_string_mode");
+ }
#if PERL_UNICODE_DOES_NOT_WORK_WELL
sqlite_trace(dbh, imp_dbh, 3, form("Unicode support is disabled for this version of perl."));
imp_dbh->string_mode = DBD_SQLITE_STRING_MODE_PV;