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

ignore removed SQLite distributions

Browse source
This commit is contained in:
Kenichi Ishigaki 2017-08-29 07:13:04 +09:00
parent e6eeefe065
commit a29349bff3
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
util/SQLiteUtil.pm
View file

@ -244,7 +244,10 @@ sub mirror {
my $url = download_url($version); my $url = download_url($version);
print "Downloading $version from $url...\n"; print "Downloading $version from $url...\n";
my $res = HTTP::Tiny->new->mirror($url => $file); my $res = HTTP::Tiny->new->mirror($url => $file);
die "Can't mirror $file: ".$res->{reason} unless $res->{success}; if (!$res->{success}) {
warn "Can't mirror $url: ".$res->{reason};
return;
}
my $content_type = $res->{headers}{'content-type'}; my $content_type = $res->{headers}{'content-type'};
if ($content_type !~ /x\-gzip/) { if ($content_type !~ /x\-gzip/) {
unlink $file; unlink $file;