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

made SQLiteUtil a bit less verbose

Browse source
This commit is contained in:
Kenichi Ishigaki 2015-11-24 21:25:27 +09:00
parent eb69d88479
commit fa0b8edaea
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
util/SQLiteUtil.pm
View file

@ -13,6 +13,7 @@ our @EXPORT = qw/
our $ROOT = "$FindBin::Bin/.."; our $ROOT = "$FindBin::Bin/..";
our $SRCDIR = "$ROOT/tmp/src"; our $SRCDIR = "$ROOT/tmp/src";
our $VERBOSE = $ENV{SQLITE_UTIL_VERBOSE};
my %since = ( my %since = (
IOERR_LOCK => '3006002', IOERR_LOCK => '3006002',
@ -182,7 +183,7 @@ sub extract_constants {
checkpoint_operation_parameters | checkpoint_mode | checkpoint_operation_parameters | checkpoint_mode |
conflict_resolution | text_encodings conflict_resolution | text_encodings
/x) { /x) {
print "$tag is ignored\n"; print "$tag is ignored\n" if $VERBOSE;
$tag = ''; $tag = '';
} }
next; next;
@ -278,7 +279,7 @@ sub check_api_history {
require Array::Diff; require Array::Diff;
my %current; my %current;
for my $version (versions()) { for my $version (versions()) {
print "checking $version...\n"; print "checking $version...\n" if $VERBOSE;
my $dir = srcdir($version); my $dir = srcdir($version);
unless ($dir && -d $dir) { unless ($dir && -d $dir) {
$dir = mirror($version) or next; $dir = mirror($version) or next;