diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-07-26 19:49:19 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-07-26 19:55:31 +0100 |
commit | f4e23593ad4e04711ec34d5b1d70f3a0508f2b66 (patch) | |
tree | 07fa7091564ce047eb17b7573c8c87df05eb9703 | |
parent | 596f5bac104b0f6a1e87b509f945fd6e6ad7001a (diff) |
Configuration: Break out access_cfg_cfgs
-rwxr-xr-x | dgit | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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; } |