X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=451985db3859a10dfc36912d30d9c4192b673659;hp=13c8addd895df282131000851f4355c6ba22344a;hb=6e73b40874dcd924dd1f0091591cbc759070f276;hpb=ebdf444fc97532f96d189bda5921fcdb85edf745 diff --git a/dgit b/dgit index 13c8addd..451985db 100755 --- a/dgit +++ b/dgit @@ -2408,7 +2408,7 @@ END return $dgitview unless defined $archive_hash; - if ($overwrite_version) { + if (defined $overwrite_version) { progress "Declaring that HEAD inciudes all changes in archive..."; progress "Checking that $overwrite_version does so..."; $cond_equal->([ $overwrite_version, '--overwrite= version' ], @@ -2429,7 +2429,7 @@ END $cond_equal->($i_dgit, $i_archive); $cond_ff->($i_dep14, $i_dgit); - $overwrite_version or $cond_ff->($i_dep14, [ $maintview, 'HEAD' ]); + $overwrite_version // $cond_ff->($i_dep14, [ $maintview, 'HEAD' ]); my $tree = cmdoutput qw(git rev-parse), "${dgitview}:"; my $authline = clogp_authline $clogp; @@ -2445,7 +2445,7 @@ author $authline commiter $authline END - if ($overwrite_version) { + if (defined $overwrite_version) { print MC <= 4; responder_send_command("param maint-view $maintviewhead"); } @@ -3316,6 +3316,13 @@ sub quiltify_splitbrain ($$$$$$) { } fail $msg; } + if ($quilt_mode =~ m/dpm/ && + ($diffbits->{H2A} & 01)) { + fail <{O2A} & 01)) { # some patches quiltify_splitbrain_needed(); @@ -3325,6 +3332,14 @@ sub quiltify_splitbrain ($$$$$$) { runcmd @git, qw(update-ref refs/heads/dgit-view HEAD); runcmd @git, qw(checkout -q dgit-view); } + if ($quilt_mode =~ m/gbp|dpm/ && + ($diffbits->{O2A} & 02)) { + fail <{H2O} & 02) && # user has modified .gitignore !($diffbits->{O2A} & 02)) { # patches do not change .gitignore quiltify_splitbrain_needed();