1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

ignore removed SQLite distributions

This commit is contained in:
Kenichi Ishigaki 2017-08-29 07:13:04 +09:00
parent e6eeefe065
commit a29349bff3

View file

@ -244,7 +244,10 @@ sub mirror {
my $url = download_url($version);
print "Downloading $version from $url...\n";
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'};
if ($content_type !~ /x\-gzip/) {
unlink $file;