X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;ds=sidebyside;f=dgit;h=5207e0b96780124fbb106843e51f0fd4b3fe1ba3;hb=1d34fdab75a2cab04ee30c10f6bcd32f02620b17;hp=7c282532b044daaf9afd64337c5fcb0418af2499;hpb=d45493f37387ea36757a1749acb22626b4843645;p=dgit.git

diff --git a/dgit b/dgit
index 7c282532..5207e0b9 100755
--- a/dgit
+++ b/dgit
@@ -5729,6 +5729,7 @@ sub cmd_gbp_build {
 sub cmd_git_build { cmd_gbp_build(); } # compatibility with <= 1.0
 
 sub build_source {
+    build_prep_early();
     my $our_cleanmode = $cleanmode;
     if ($need_split_build_invocation) {
 	# Pretend that clean is being done some other way.  This
@@ -5817,10 +5818,7 @@ END
 
 sub cmd_quilt_fixup {
     badusage "incorrect arguments to dgit quilt-fixup" if @ARGV;
-    my $clogp = parsechangelog();
-    $version = getfield $clogp, 'Version';
-    $package = getfield $clogp, 'Source';
-    check_not_dirty();
+    build_prep_early();
     clean_tree();
     build_maybe_quilt_fixup();
 }
@@ -6315,40 +6313,44 @@ $cmd =~ y/-/_/;
 my $pre_fn = ${*::}{"pre_$cmd"};
 $pre_fn->() if $pre_fn;
 
-if (!defined $rmchanges) {
-    local $access_forpush;
-    $rmchanges = access_cfg_bool(0, 'rm-old-changes');
-}
+sub parseopts_late_defaults () {
+    if (!defined $rmchanges) {
+	local $access_forpush;
+	$rmchanges = access_cfg_bool(0, 'rm-old-changes');
+    }
 
-if (!defined $quilt_mode) {
-    local $access_forpush;
-    $quilt_mode = cfg('dgit.force.quilt-mode', 'RETURN-UNDEF')
-	// access_cfg('quilt-mode', 'RETURN-UNDEF')
-	// 'linear';
-    $quilt_mode =~ m/^($quilt_modes_re)$/ 
-	or badcfg "unknown quilt-mode \`$quilt_mode'";
-    $quilt_mode = $1;
-}
+    if (!defined $quilt_mode) {
+	local $access_forpush;
+	$quilt_mode = cfg('dgit.force.quilt-mode', 'RETURN-UNDEF')
+	    // access_cfg('quilt-mode', 'RETURN-UNDEF')
+	    // 'linear';
+	$quilt_mode =~ m/^($quilt_modes_re)$/ 
+	    or badcfg "unknown quilt-mode \`$quilt_mode'";
+	$quilt_mode = $1;
+    }
 
-if (!defined $dodep14tag) {
-    local $access_forpush;
-    $dodep14tag = access_cfg('dep14tag', 'RETURN-UNDEF') // 'want';
-    $dodep14tag =~ m/^($dodep14tag_re)$/ 
-	or badcfg "unknown dep14tag setting \`$dodep14tag'";
-    $dodep14tag = $1;
-}
+    if (!defined $dodep14tag) {
+	local $access_forpush;
+	$dodep14tag = access_cfg('dep14tag', 'RETURN-UNDEF') // 'want';
+	$dodep14tag =~ m/^($dodep14tag_re)$/ 
+	    or badcfg "unknown dep14tag setting \`$dodep14tag'";
+	$dodep14tag = $1;
+    }
 
-$need_split_build_invocation ||= quiltmode_splitbrain();
+    $need_split_build_invocation ||= quiltmode_splitbrain();
 
-if (!defined $cleanmode) {
-    local $access_forpush;
-    $cleanmode = access_cfg('clean-mode', 'RETURN-UNDEF');
-    $cleanmode //= 'dpkg-source';
+    if (!defined $cleanmode) {
+	local $access_forpush;
+	$cleanmode = access_cfg('clean-mode', 'RETURN-UNDEF');
+	$cleanmode //= 'dpkg-source';
 
-    badcfg "unknown clean-mode \`$cleanmode'" unless
-	$cleanmode =~ m/^($cleanmode_re)$(?!\n)/s;
+	badcfg "unknown clean-mode \`$cleanmode'" unless
+	    $cleanmode =~ m/^($cleanmode_re)$(?!\n)/s;
+    }
 }
 
+parseopts_late_defaults();
+
 my $fn = ${*::}{"cmd_$cmd"};
 $fn or badusage "unknown operation $cmd";
 $fn->();