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

Accepting request 960437 from home:jmoellers:branches:devel:languages:perl

Browse Source 
OBS-URL: https://build.opensuse.org/request/show/960437
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-DBD-SQLite?expand=0&rev=68
This commit is contained in:
Dirk Stoecker
2022-03-09 10:15:14 +00:00
committed by Git OBS Bridge
parent 296b947ae7
commit 01b28519ff
4 changed files with 59 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
perl-DBD-SQLite-use-external-sqlite3.patch Normal file
View File

@@ -0,0 +1,26 @@
Index: DBD-SQLite-1.70/Makefile.PL
===================================================================
--- DBD-SQLite-1.70.orig/Makefile.PL
+++ DBD-SQLite-1.70/Makefile.PL
@@ -129,7 +129,7 @@ SCOPE: {
# a system sqlite is also sophisticated enough to have a patching system
# that can change the if ( 0 ) to if ( 1 )
my ($sqlite_local, $sqlite_base, $sqlite_lib, $sqlite_inc);
-if ( 0 ) {
+if ( 1 ) {
require File::Spec;
if ( $sqlite_base = (grep(/SQLITE_LOCATION=.*/, @ARGV))[0] ) {
$sqlite_base =~ /=(.*)/;
Index: DBD-SQLite-1.70/t/51_table_column_metadata.t
===================================================================
--- DBD-SQLite-1.70.orig/t/51_table_column_metadata.t
+++ DBD-SQLite-1.70/t/51_table_column_metadata.t
@@ -19,7 +19,7 @@ for my $call_func (@CALL_FUNCS) {
my $data = $dbh->$call_func(undef, 'foo', 'id', 'table_column_metadata');
ok $data && ref $data eq ref {}, "got a metadata";
ok $data->{auto_increment}, "id is auto incremental";
- is $data->{data_type} => 'integer', "data type is correct";
+ is $data->{data_type} => 'INTEGER', "data type is correct";
ok $data->{primary}, "id is a primary key";
ok !$data->{not_null}, "id is not null";
}