diff options
-rwxr-xr-x | dgit | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6201,7 +6201,7 @@ sub maybe_unapply_patches_again () { 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 $!; @@ -6224,7 +6224,7 @@ sub clean_tree () { 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 { |