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

ignore virtual_table_scan_flags

Browse source
This commit is contained in:
Kenichi Ishigaki 2016-01-11 15:32:45 +09:00
parent 58e50836e7
commit 9a647c57e0
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
util/SQLiteUtil.pm
View file

@ -158,6 +158,16 @@ my %ignore = map {$_ => 1} qw/
OPEN_SUBJOURNAL OPEN_MASTER_JOURNAL OPEN_WAL OPEN_SUBJOURNAL OPEN_MASTER_JOURNAL OPEN_WAL
/; /;
my $ignore_tag_re = join '|', qw/
testing_interface library_version_numbers configuration_options
device_characteristics file_locking vfs_method xshmlock_index
mutex_types scan_status run_time_limit standard_file_control
status_parameters synchronization_type virtual_table_constraint
virtual_table_indexing_information checkpoint_operation_parameters
checkpoint_mode conflict_resolution text_encodings
virtual_table_scan_flags
/;
my %compat = map {$_ => 1} qw/ my %compat = map {$_ => 1} qw/
authorizer_action_codes authorizer_action_codes
authorizer_return_codes authorizer_return_codes
@ -176,18 +186,7 @@ sub extract_constants {
$tag =~ s/[ \-]+/_/g; $tag =~ s/[ \-]+/_/g;
($tag) = $tag =~ /^(\w+)/; ($tag) = $tag =~ /^(\w+)/;
$tag =~ s/_$//; $tag =~ s/_$//;
if ($tag =~ / if ($tag =~ /$ignore_tag_re/) {
testing_interface |
library_version_numbers |
configuration_options | device_characteristics |
file_locking | vfs_method | xshmlock_index |
mutex_types | scan_status | run_time_limit |
standard_file_control | status_parameters |
synchronization_type | virtual_table_constraint |
virtual_table_indexing_information |
checkpoint_operation_parameters | checkpoint_mode |
conflict_resolution | text_encodings
/x) {
print "$tag is ignored\n" if $VERBOSE; print "$tag is ignored\n" if $VERBOSE;
$tag = ''; $tag = '';
} }