git fetching: Tidy up a redundant list in git_lrfetch_sane

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 7eaa5ef6fe008050ee5cb197061471273bd09dd2..845edd3aa22878a3571116c59d37a743fba4ea8f 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -677,7 +677,10 @@ sub cfg {
        my $v = git_get_config($c);
        return $v if defined $v;
        my $dv = $defcfg{$c};
-       return $dv if defined $dv;
+       if (defined $dv) {
+           printdebug "CD $c $dv\n" if $debuglevel >= 4;
+           return $dv;
+       }
     }
     badcfg "need value for one of: @_\n".
        "$us: distro or suite appears not to be (properly) supported";
@@ -2588,8 +2591,7 @@ END
        printdebug "git_lrfetch_sane fspecs @fspecs\n";
 
        my @fcmd = (@git, qw(fetch -p -n -q), access_giturl(), @fspecs);
-       runcmd_ordryrun_local @git, qw(fetch -p -n -q), access_giturl(),
-           @fspecs;
+       runcmd_ordryrun_local @fcmd if @fspecs;
 
        %lrfetchrefs_f = ();
        my %objgot;