From fa0b8edaea42d5af227b6bb156ff84972ffb441e Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 24 Nov 2015 21:25:27 +0900
Subject: [PATCH] made SQLiteUtil a bit less verbose

---
 util/SQLiteUtil.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm
index 5896e64..462c95d 100644
--- a/util/SQLiteUtil.pm
+++ b/util/SQLiteUtil.pm
@@ -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;