diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm index 9dd348d..9ee1cc5 100644 --- a/util/SQLiteUtil.pm +++ b/util/SQLiteUtil.pm @@ -305,7 +305,7 @@ sub extract_constants { my %bad_dist = map {$_ => 1} qw/3061601 3120000 3090300 3120100 3180100/; sub versions { - my $res = HTTP::Tiny->new->get("http://sqlite.org/changes.html"); + my $res = HTTP::Tiny->new->get("https://sqlite.org/changes.html"); reverse grep {$_->as_num >= 3060100 && !$bad_dist{$_->as_num}} map {s/_/./g; SQLiteUtil::Version->new($_)} $res->{content} =~ /name="version_(3_[\d_]+)"/g; }