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

fixed versions detection from sqlite website

Browse source
This commit is contained in:
Kenichi Ishigaki 2015-04-16 19:40:22 +09:00
parent 663e6e1ff4
commit eaf3dc37d0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
util/SQLiteUtil.pm
View file

@ -204,10 +204,10 @@ sub extract_constants {
%constants; %constants;
} }
my %bad_dist = map {$_ => 1} qw/3.6.16.1/; my %bad_dist = map {$_ => 1} qw/3061601/;
sub versions { sub versions {
my $res = HTTP::Tiny->new->get("http://sqlite.org/changes.html"); my $res = HTTP::Tiny->new->get("http://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; reverse grep {$_->as_num >= 3060100 && !$bad_dist{$_->as_num}} map {s/_/./g; SQLiteUtil::Version->new($_)} $res->{content} =~ /name="version_(3_[\d_]+)"/g;
} }
sub srcdir { sub srcdir {