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 $!;
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 {