}
sub cmd_make_patches () {
+ my $opt_quiet_would_amend;
+ GetOptions('quiet-would-amend!', \$opt_quiet_would_amend)
+ or die badusage("bad options to make-patches");
badusage "no arguments allowed" if @ARGV;
my $old_head = get_head();
my $new = make_patches $old_head;
snags_maybe_bail();
update_head_checkout $old_head, $new, 'make-patches';
} else {
- fail "Patch export produced patch amendments".
+ print STDERR failmsg
+ "Patch export produced patch amendments".
" (abandoned output commit $new).".
- " Try laundering first.";
+ " Try laundering first."
+ unless $opt_quiet_would_amend;
+ finish 7;
}
}