This will make it easier to introduce new variants.
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
sub clean_tree_check () {
# Not yet fully implemented.
sub clean_tree_check () {
# Not yet fully implemented.
- if ($cleanmode eq 'check') {
+ if ($cleanmode =~ m{^check}) {
my $leftovers = cmdoutput @git, qw(clean -xdn);
if (length $leftovers) {
print STDERR $leftovers, "\n" or confess $!;
my $leftovers = cmdoutput @git, qw(clean -xdn);
if (length $leftovers) {
print STDERR $leftovers, "\n" or confess $!;
runcmd_ordryrun_local @git, qw(clean -xdf);
} elsif ($cleanmode eq 'git-ff') {
runcmd_ordryrun_local @git, qw(clean -xdff);
runcmd_ordryrun_local @git, qw(clean -xdf);
} elsif ($cleanmode eq 'git-ff') {
runcmd_ordryrun_local @git, qw(clean -xdff);
- } elsif ($cleanmode eq 'check') {
+ } elsif ($cleanmode =~ m{^check}) {
clean_tree_check();
} elsif ($cleanmode eq 'none') {
} else {
clean_tree_check();
} elsif ($cleanmode eq 'none') {
} else {