Show git config queries only with debuglevel 3 (-DDD) and higher.

diff --git a/debian/changelog b/debian/changelog
index 6a8534bd561e52278f4206e90dbcc3af950d3c46..b0587c6f43f458c528e5e49194b67be38343a6f2 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -65,6 +65,8 @@ dgit (0.23~) unstable; urgency=low
 
   * Turn all perl warnings into errors using $SIG{__WARN__}.
 
 
   * Turn all perl warnings into errors using $SIG{__WARN__}.
 

+  * Show git config queries only with debuglevel 3 (-DDD) and higher.
+

  --
 
 dgit (0.22.1) unstable; urgency=high
  --
 
 dgit (0.22.1) unstable; urgency=high

diff --git a/dgit b/dgit
index 009319a56996cc48a705d29251728d61b480dfbd..9a63e6540050f694227d30c2ea98fe0ef98ccaf8 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -531,7 +531,7 @@ sub cfg {
        my @cmd = (@git, qw(config --), $c);
        my $v;
        {
        my @cmd = (@git, qw(config --), $c);
        my $v;
        {

-           local ($debuglevel) = $debuglevel-1;
+           local ($debuglevel) = $debuglevel-2;

            $v = cmdoutput_errok @cmd;
        };
        if ($?==0) {
            $v = cmdoutput_errok @cmd;
        };
        if ($?==0) {