simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-08 06:38:12 -04:00
Code Issues Releases Wiki Activity

Tweaked to live in the subdirectory

Browse source
This commit is contained in:
Adam Kennedy 2009-04-22 01:53:43 +00:00
parent 02603227e7
commit 2555660d74
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
util/getsqlite.pl
View file

@ -1,15 +1,21 @@
#!/usr/bin/perl
use strict; use strict;
use FindBin;
use File::Spec::Functions ':ALL';
use LWP::Simple qw(getstore); use LWP::Simple qw(getstore);
use ExtUtils::Command; use ExtUtils::Command;
chdir(catdir($FindBin::Bin, updir())) or die "Failed to change to the dist root";
my $version = shift || die "Usage: getsqlite.pl <version>\n"; my $version = shift || die "Usage: getsqlite.pl <version>\n";
print("downloading http://www.sqlite.org/sqlite-amalgamation-$version.tar.gz\n"); print("downloading http://www.sqlite.org/sqlite-amalgamation-$version.tar.gz\n");
if (getstore( my $rv = getstore(
"http://www.sqlite.org/sqlite-amalgamation-$version.tar.gz", "http://www.sqlite.org/sqlite-amalgamation-$version.tar.gz",
"sqlite.tar.gz") != 200) { "sqlite.tar.gz",
die "Failed to download"; );
} die "Failed to download" if $rv != 200;
print("done\n"); print("done\n");
rm_rf('sqlite') || rm_rf("sqlite-$version"); rm_rf('sqlite') || rm_rf("sqlite-$version");