5db741
From 244f130b8f918cc80b1c2165877102fe56d6611f Mon Sep 17 00:00:00 2001
5db741
From: Jitka Plesnikova <jplesnik@redhat.com>
5db741
Date: Wed, 2 Jan 2019 13:34:31 +0100
5db741
Subject: [PATCH] Remove bundled source extentions
5db741
5db741
---
5db741
 README            | 30 ------------------------------
5db741
 lib/DBD/SQLite.pm | 31 -------------------------------
5db741
 2 files changed, 61 deletions(-)
5db741
5db741
diff --git a/README b/README
5db741
index 34973a3..069cdeb 100644
5db741
--- a/README
5db741
+++ b/README
5db741
@@ -1439,36 +1439,6 @@ VIRTUAL TABLES IMPLEMENTED IN PERL
5db741
   Other Perl virtual tables may also be published separately on
5db741
   CPAN.
5db741
 
5db741
-FOR DBD::SQLITE EXTENSION AUTHORS
5db741
-  Since 1.30_01, you can retrieve the bundled SQLite C source and/or
5db741
-  header like this:
5db741
-
5db741
-    use File::ShareDir 'dist_dir';
5db741
-    use File::Spec::Functions 'catfile';
5db741
-  
5db741
-    # the whole sqlite3.h header
5db741
-    my $sqlite3_h = catfile(dist_dir('DBD-SQLite'), 'sqlite3.h');
5db741
-  
5db741
-    # or only a particular header, amalgamated in sqlite3.c
5db741
-    my $what_i_want = 'parse.h';
5db741
-    my $sqlite3_c = catfile(dist_dir('DBD-SQLite'), 'sqlite3.c');
5db741
-    open my $fh, '<', $sqlite3_c or die $!;
5db741
-    my $code = do { local $/; <$fh> };
5db741
-    my ($parse_h) = $code =~ m{(
5db741
-      /\*+[ ]Begin[ ]file[ ]$what_i_want[ ]\*+
5db741
-      .+?
5db741
-      /\*+[ ]End[ ]of[ ]$what_i_want[ ]\*+/
5db741
-    )}sx;
5db741
-    open my $out, '>', $what_i_want or die $!;
5db741
-    print $out $parse_h;
5db741
-    close $out;
5db741
-
5db741
-  You usually want to use this in your extension's "Makefile.PL",
5db741
-  and you may want to add DBD::SQLite to your extension's
5db741
-  "CONFIGURE_REQUIRES" to ensure your extension users use the same C
5db741
-  source/header they use to build DBD::SQLite itself (instead of the
5db741
-  ones installed in their system).
5db741
-
5db741
 TO DO
5db741
   The following items remain to be done.
5db741
 
5db741
diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm
5db741
index f6b90e4..e1150aa 100644
5db741
--- a/lib/DBD/SQLite.pm
5db741
+++ b/lib/DBD/SQLite.pm
5db741
@@ -2649,37 +2649,6 @@ sources, etc.
5db741
 
5db741
 Other Perl virtual tables may also be published separately on CPAN.
5db741
 
5db741
-=head1 FOR DBD::SQLITE EXTENSION AUTHORS
5db741
-
5db741
-Since 1.30_01, you can retrieve the bundled SQLite C source and/or
5db741
-header like this:
5db741
-
5db741
-  use File::ShareDir 'dist_dir';
5db741
-  use File::Spec::Functions 'catfile';
5db741
-  
5db741
-  # the whole sqlite3.h header
5db741
-  my $sqlite3_h = catfile(dist_dir('DBD-SQLite'), 'sqlite3.h');
5db741
-  
5db741
-  # or only a particular header, amalgamated in sqlite3.c
5db741
-  my $what_i_want = 'parse.h';
5db741
-  my $sqlite3_c = catfile(dist_dir('DBD-SQLite'), 'sqlite3.c');
5db741
-  open my $fh, '<', $sqlite3_c or die $!;
5db741
-  my $code = do { local $/; <$fh> };
5db741
-  my ($parse_h) = $code =~ m{(
5db741
-    /\*+[ ]Begin[ ]file[ ]$what_i_want[ ]\*+
5db741
-    .+?
5db741
-    /\*+[ ]End[ ]of[ ]$what_i_want[ ]\*+/
5db741
-  )}sx;
5db741
-  open my $out, '>', $what_i_want or die $!;
5db741
-  print $out $parse_h;
5db741
-  close $out;
5db741
-
5db741
-You usually want to use this in your extension's C<Makefile.PL>,
5db741
-and you may want to add DBD::SQLite to your extension's C<CONFIGURE_REQUIRES>
5db741
-to ensure your extension users use the same C source/header they use
5db741
-to build DBD::SQLite itself (instead of the ones installed in their
5db741
-system).
5db741
-
5db741
 =head1 TO DO
5db741
 
5db741
 The following items remain to be done.
5db741
-- 
5db741
2.17.2
5db741