From a29349bff3e4465e3fa5aac337e834c78a2c9bdb Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 29 Aug 2017 07:13:04 +0900
Subject: [PATCH] ignore removed SQLite distributions

---
 util/SQLiteUtil.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm
index 7b5fdb7..251fd28 100644
--- a/util/SQLiteUtil.pm
+++ b/util/SQLiteUtil.pm
@@ -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;