From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 26 Jul 2015 18:49:19 +0000 (+0100)
Subject: Configuration: Break out access_cfg_cfgs
X-Git-Tag: debian/1.1~34
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=f4e23593ad4e04711ec34d5b1d70f3a0508f2b66

Configuration: Break out access_cfg_cfgs
---

diff --git a/dgit b/dgit
index de14f92b..4c6cc9c2 100755
--- a/dgit
+++ b/dgit
@@ -645,7 +645,7 @@ sub access_distros () {
     @l;
 }
 
-sub access_cfg (@) {
+sub access_cfg_cfgs (@) {
     my (@keys) = @_;
     my @cfgs;
     # The nesting of these loops determines the search order.  We put
@@ -672,6 +672,12 @@ sub access_cfg (@) {
     }
     push @cfgs, map { "dgit.default.$_" } @realkeys;
     push @cfgs, @rundef;
+    return @cfgs;
+}
+
+sub access_cfg (@) {
+    my (@keys) = @_;
+    my (@cfgs) = access_cfg_cfgs(@keys);
     my $value = cfg(@cfgs);
     return $value;
 }