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' ],
$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;
commiter $authline
END
- if ($overwrite_version) {
+ if (defined $overwrite_version) {
print MC <<END;
Declare fast forward from $overwrite_version
responder_send_command("param head $dgithead");
responder_send_command("param csuite $csuite");
responder_send_command("param tagformat $tagformat");
- if (quiltmode_splitbrain) {
+ if (defined $maintviewhead) {
die unless ($protovsn//4) >= 4;
responder_send_command("param maint-view $maintviewhead");
}