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

warn if versions in %since/%until does not match the known sqlite version numbers

Browse source
This commit is contained in:
Kenichi Ishigaki 2018-12-22 05:25:19 +09:00
parent a4126d6742
commit 9c851bf852
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
util/SQLiteUtil.pm
View file

@ -217,6 +217,8 @@ my %compat = map {$_ => 1} qw/
flags_for_file_open_operations
/;
my %known_versions;
sub extract_constants {
my $file = shift;
$file ||= "$FindBin::Bin/../sqlite3.h";
@ -235,10 +237,14 @@ sub extract_constants {
}
next;
}
if ($tag && /^#define SQLITE_(\S+)\s+(?:\d|\(SQLITE)/) {
my $name = $1;
if ($tag && /^#define SQLITE_(\S+)\s+(\d+|\(SQLITE)/) {
my ($name, $value) = ($1, $2);
if ($name eq 'VERSION_NUMBER' and $value =~ /^\d+$/) {
$known_versions{$value} = 1;
}
next if $ignore{$name};
if (my $version = $since{$name} || $since{$tag}) {
$known_versions{$version} //= 0;
push @{$constants{"${tag}_${version}"} ||= []}, $name;
push @{$constants{"_${tag}_${version}"} ||= []}, $name if $compat{$tag};
} else {
@ -369,6 +375,9 @@ sub check_api_history {
}
%current = %constants;
}
if (my @wrong_versions = grep {!$known_versions{$_}} keys %known_versions) {
warn "WRONG VERSIONS: ".join(",", sort @wrong_versions);
}
}
package SQLiteUtil::Version;