diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm index 4f8c1b1..9aa74d5 100644 --- a/util/SQLiteUtil.pm +++ b/util/SQLiteUtil.pm @@ -204,9 +204,10 @@ sub extract_constants { %constants; } +my %bad_dist = map {$_ => 1} qw/3.6.16.1/; sub versions { my $res = HTTP::Tiny->new->get("http://sqlite.org/changes.html"); - reverse grep {$_->as_num >= 3060100} map {s/_/./g; SQLiteUtil::Version->new($_)} $res->{content} =~ /name="version_(3_[\d_]+)"/g; + reverse grep {$_->as_num >= 3060100 && $bad_dist{$_->as_num}} map {s/_/./g; SQLiteUtil::Version->new($_)} $res->{content} =~ /name="version_(3_[\d_]+)"/g; } sub srcdir {