From 2181c2090e9a97fd4630e38d6c28721a3f474417 Mon Sep 17 00:00:00 2001 From: Packit Service Date: Dec 10 2020 01:30:26 +0000 Subject: Apply patch DBD-SQLite-1.50-Remove-bundled-source-extentions.patch patch_name: DBD-SQLite-1.50-Remove-bundled-source-extentions.patch present_in_specfile: true --- diff --git a/README b/README index 9047989..f4d69b2 100644 --- a/README +++ b/README @@ -1222,36 +1222,6 @@ R* TREE SUPPORT using callbacks, as mentioned in the prior link, have not been implemented yet. -FOR DBD::SQLITE EXTENSION AUTHORS - Since 1.30_01, you can retrieve the bundled sqlite C source and/or - header like this: - - use File::ShareDir 'dist_dir'; - use File::Spec::Functions 'catfile'; - - # the whole sqlite3.h header - my $sqlite3_h = catfile(dist_dir('DBD-SQLite'), 'sqlite3.h'); - - # or only a particular header, amalgamated in sqlite3.c - my $what_i_want = 'parse.h'; - my $sqlite3_c = catfile(dist_dir('DBD-SQLite'), 'sqlite3.c'); - open my $fh, '<', $sqlite3_c or die $!; - my $code = do { local $/; <$fh> }; - my ($parse_h) = $code =~ m{( - /\*+[ ]Begin[ ]file[ ]$what_i_want[ ]\*+ - .+? - /\*+[ ]End[ ]of[ ]$what_i_want[ ]\*+/ - )}sx; - open my $out, '>', $what_i_want or die $!; - print $out $parse_h; - close $out; - - You usually want to use this in your extension's "Makefile.PL", and you - may want to add DBD::SQLite to your extension's "CONFIGURE_REQUIRES" to - ensure your extension users use the same C source/header they use to - build DBD::SQLite itself (instead of the ones installed in their - system). - TO DO The following items remain to be done. diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm index a719c10..b99cacf 100644 --- a/lib/DBD/SQLite.pm +++ b/lib/DBD/SQLite.pm @@ -2499,37 +2499,6 @@ sources, etc. Other Perl virtual tables may also be published separately on CPAN. -=head1 FOR DBD::SQLITE EXTENSION AUTHORS - -Since 1.30_01, you can retrieve the bundled SQLite C source and/or -header like this: - - use File::ShareDir 'dist_dir'; - use File::Spec::Functions 'catfile'; - - # the whole sqlite3.h header - my $sqlite3_h = catfile(dist_dir('DBD-SQLite'), 'sqlite3.h'); - - # or only a particular header, amalgamated in sqlite3.c - my $what_i_want = 'parse.h'; - my $sqlite3_c = catfile(dist_dir('DBD-SQLite'), 'sqlite3.c'); - open my $fh, '<', $sqlite3_c or die $!; - my $code = do { local $/; <$fh> }; - my ($parse_h) = $code =~ m{( - /\*+[ ]Begin[ ]file[ ]$what_i_want[ ]\*+ - .+? - /\*+[ ]End[ ]of[ ]$what_i_want[ ]\*+/ - )}sx; - open my $out, '>', $what_i_want or die $!; - print $out $parse_h; - close $out; - -You usually want to use this in your extension's C, -and you may want to add DBD::SQLite to your extension's C -to ensure your extension users use the same C source/header they use -to build DBD::SQLite itself (instead of the ones installed in their -system). - =head1 TO DO The following items remain to be done.