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