X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=a051622d1617310b3e5555307d2de534a3c024a5;hp=1a2ee88feabca1487696f6abf7d3a406329de9b0;hb=6a8f914beb77ec4cc36ed0aecb0e5da31a450418;hpb=236b11e106008dcf767ede43a5926d9b985f59e7

diff --git a/dgit b/dgit
index 1a2ee88f..a051622d 100755
--- a/dgit
+++ b/dgit
@@ -485,20 +485,35 @@ our %defcfg = ('dgit.default.distro' => 'debian',
 	       'dgit-distro.test-dummy.upload-host' => 'test-dummy',
                );
 
+sub git_get_config ($) {
+    my ($c) = @_;
+
+    our %git_get_config_memo;
+    if (exists $git_get_config_memo{$c}) {
+	return $git_get_config_memo{$c};
+    }
+
+    my $v;
+    my @cmd = (@git, qw(config --), $c);
+    {
+	local ($debuglevel) = $debuglevel-2;
+	$v = cmdoutput_errok @cmd;
+    };
+    if ($?==0) {
+    } elsif ($?==256) {
+	$v = undef;
+    } else {
+	failedcmd @cmd;
+    }
+    $git_get_config_memo{$c} = $v;
+    return $v;
+}
+
 sub cfg {
     foreach my $c (@_) {
 	return undef if $c =~ /RETURN-UNDEF/;
-	my @cmd = (@git, qw(config --), $c);
-	my $v;
-	{
-	    local ($debuglevel) = $debuglevel-2;
-	    $v = cmdoutput_errok @cmd;
-	};
-	if ($?==0) {
-	    return $v;
-	} elsif ($?!=256) {
-	    failedcmd @cmd;
-	}
+	my $v = git_get_config($c);
+	return $v if defined $v;
 	my $dv = $defcfg{$c};
 	return $dv if defined $dv;
     }