X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;h=ae96531e38072c586035a080e9db3f7fd0c4d399;hb=b1772b364e75b32c413db7060a0adf8b124c84db;hp=56cee1140814185072007d6acf2f2e9336b9f6dd;hpb=37e3be3b6a61e26f9836d3575531ba716818b134;p=dgit.git

diff --git a/dgit b/dgit
index 56cee114..ae96531e 100755
--- 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/) {
@@ -984,7 +989,7 @@ sub sshpsql ($$$) {
     open P, "-|", @cmd or die $!;
     while (<P>) {
 	chomp or die;
-	printdebug("$debugprefix>|$_|\n");
+	printdebug(">|$_|\n");
 	push @rows, $_;
     }
     $!=0; $?=0; close P or failedcmd @cmd;