Provide access_cfg_bool (no call sites yet)

[dgit.git] / dgit

diff --git a/dgit b/dgit
index a0f560ae66bfc4091af80410fab18396fda62359..ae96531e38072c586035a080e9db3f7fd0c4d399 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -694,6 +694,11 @@ sub access_cfg (@) {
     return $value;
 }
 
+sub access_cfg_bool ($$) {
+    my ($def, @keys) = @_;
+    parse_cfg_bool($keys[0], $def, access_cfg(@keys, 'RETURN-UNDEF'));
+}
+
 sub string_to_ssh ($) {
     my ($spec) = @_;
     if ($spec =~ m/\s/) {