simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

replaced LWP::Simple with HTTP::Tiny

Browse source
This commit is contained in:
Kenichi Ishigaki 2015-02-13 15:12:42 +09:00
parent fa4161052f
commit 5ddbdd1e6b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
util/getsqlite.pl
View file

@ -3,7 +3,7 @@
use strict; use strict;
use FindBin; use FindBin;
use File::Spec::Functions ':ALL'; use File::Spec::Functions ':ALL';
use LWP::Simple qw(getstore); use HTTP::Tiny;
use ExtUtils::Command; use ExtUtils::Command;
chdir(catdir($FindBin::Bin, updir())) or die "Failed to change to the dist root"; chdir(catdir($FindBin::Bin, updir())) or die "Failed to change to the dist root";
@ -41,11 +41,11 @@ my $url_to_download = qq{http://www.sqlite.org/${year}sqlite-}
. ($is_pre_30704_style ? q{amalgamation} : q{autoconf}) . ($is_pre_30704_style ? q{amalgamation} : q{autoconf})
. qq{-$version_for_url.tar.gz}; . qq{-$version_for_url.tar.gz};
print("downloading $url_to_download\n"); print("downloading $url_to_download\n");
my $rv = getstore( my $rv = HTTP::Tiny->new->mirror(
$url_to_download, $url_to_download,
"sqlite.tar.gz", "sqlite.tar.gz",
); );
die "Failed to download" if $rv != 200; die "Failed to download" if !$rv->{success};
print("done\n"); print("done\n");
rm_rf('sqlite') || rm_rf("sqlite-$version_dotty") || rm_rf("sqlite-amalgamation-$version_dotty"); rm_rf('sqlite') || rm_rf("sqlite-$version_dotty") || rm_rf("sqlite-amalgamation-$version_dotty");