chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dgit: config handling: better debugging
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index e4987ae7984633827e6b4b7a1e919c73d0a8b511..ee1101da23a4521f3d9d5ac33e59b0b2c37cd248 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-664,6
+664,7
@@
sub git_get_config ($) {
my ($c) = @_;
foreach my $src (@gitcfgsources) {
my $l = $gitcfgs{$src}{$c};
my ($c) = @_;
foreach my $src (@gitcfgsources) {
my $l = $gitcfgs{$src}{$c};
+ croak "$l $c" if $l && !ref $l;
printdebug"C $c ".(defined $l ?
join " ", map { messagequote "'$_'" } @$l :
"undef")."\n"
printdebug"C $c ".(defined $l ?
join " ", map { messagequote "'$_'" } @$l :
"undef")."\n"
@@
-679,6
+680,7
@@
sub git_get_config ($) {
sub cfg {
foreach my $c (@_) {
return undef if $c =~ /RETURN-UNDEF/;
sub cfg {
foreach my $c (@_) {
return undef if $c =~ /RETURN-UNDEF/;
+ printdebug "C? $c\n" if $debuglevel >= 5;
my $v = git_get_config($c);
return $v if defined $v;
my $dv = $defcfg{$c};
my $v = git_get_config($c);
return $v if defined $v;
my $dv = $defcfg{$c};