1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

made SQLiteUtil a bit less verbose

This commit is contained in:
Kenichi Ishigaki 2015-11-24 21:25:27 +09:00
parent eb69d88479
commit fa0b8edaea

View file

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