From f12011a5a08e2a7a87e4fe7a88831c6c7f6b8548 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 21 Apr 2009 06:27:47 +0000
Subject: [PATCH] DBD-SQLite: time to let getsqlite.pl fetch the amalgamated
 source

---
 getsqlite.pl | 27 ++++-----------------------
 1 file changed, 4 insertions(+), 23 deletions(-)

diff --git a/getsqlite.pl b/getsqlite.pl
index 3f483df..e8facdb 100644
--- a/getsqlite.pl
+++ b/getsqlite.pl
@@ -12,22 +12,13 @@ if (getstore(
 }
 print("done\n");
 
-rm_rf('sqlite');
+rm_rf('sqlite') || rm_rf("sqlite-$version");
 xsystem("tar zxvf sqlite.tar.gz");
 chdir("sqlite") || chdir("sqlite-$version") || die "SQLite directory not found";
-xsystem("sh configure --enable-utf8");
-xsystem("make parse.c sqlite3.h opcodes.h opcodes.c");
-eval { xsystem("make keywordhash.h") };
 
-my %skip = map { $_ => 1 } map { chomp; $_ } <DATA>;
-warn("Skip: $_\n") for keys %skip;
-
-foreach (<*.[ch]>, `find src -name \\*.[ch]`) {
-    chomp;
-    next if $skip{$_};
-    next if /\btest.*\.c$/;
-    xsystem("cp $_ ../");
-}
+xsystem("cp sqlite3.c ../");
+xsystem("cp sqlite3.h ../");
+xsystem("cp sqlite3ext.h ../");
 
 exit(0);
 
@@ -39,13 +30,3 @@ sub xsystem {
        die "system(@_) failed: $?";
     }
 }
-
-__DATA__
-lempar.c
-src/threadtest.c
-src/tclsqlite.c
-src/shell.c
-src/lemon.c
-src/md5.c
-src/encode.c
-src/experimental.c