From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 26 Jul 2015 20:32:32 +0000 (+0100)
Subject: With -DDDD, print out all gitcfg references (copious!)
X-Git-Tag: debian/1.1~30
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=37e3be3b6a61e26f9836d3575531ba716818b134

With -DDDD, print out all gitcfg references (copious!)
---

diff --git a/debian/changelog b/debian/changelog
index 8a3490ba..c1088399 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -40,6 +40,7 @@ dgit (1.1~~) unstable; urgency=low
     the user about how to retry.  Closes:#793144.
   * Honour dgit-distros.DISTRO.cmd-CMD and .opts-CMD.  Closes:#793427.
   * Slurp in entire git config, for better performance.
+  * With -DDDD, print out all gitcfg references (copious!)
 
  --
 
diff --git a/dgit b/dgit
index bcb6a9c2..56cee114 100755
--- a/dgit
+++ b/dgit
@@ -528,6 +528,8 @@ sub git_slurp_config () {
 sub git_get_config ($) {
     my ($c) = @_;
     my $l = $gitcfg{$c};
+    printdebug"C $c ".(defined $l ? messagequote "'$l'" : "undef")."\n"
+	if $debuglevel >= 4;
     $l or return undef;
     @$l==1 or badcfg "multiple values for $c" if @$l > 1;
     return $l->[0];
@@ -3185,8 +3187,10 @@ sub finalise_opts_opts () {
 	}
 
 	foreach my $c (access_cfg_cfgs("opts-$k")) {
-	    local ($debuglevel) = $debuglevel-2;
 	    my $vl = $gitcfg{$c};
+	    printdebug "CL $c ",
+	        ($vl ? join " ", map { shellquote } @$vl : ""),
+	        "\n" if $debuglevel >= 4;
 	    next unless $vl;
 	    badcfg "cannot configure options for $k"
 		if $opts_opt_cmdonly{$k};
diff --git a/dgit.1 b/dgit.1
index 2e862e3f..1507d430 100644
--- a/dgit.1
+++ b/dgit.1
@@ -376,7 +376,7 @@ fixing up, dgit push will fail.
 .TP
 .BI -D
 Prints debugging information to stderr.  Repeating the option produces
-more output (currently, up to -DDD is meaningfully different).
+more output (currently, up to -DDDD is meaningfully different).
 .TP
 .BI -c name = value
 Specifies a git configuration option, to be used for this run.