1 files changed, 10 insertions, 7 deletions

diff --git a/dgit b/dgit
index b4943a2..7f58bc5 100755
--- a/dgit
+++ b/dgit
@@ -6200,7 +6200,15 @@ sub maybe_unapply_patches_again () {
 #----- other building -----
 
 sub clean_tree_check () {
-    # Not yet implemented.  The lack of this is part of #910705.
+    # Not yet fully implemented.
+    if ($cleanmode eq 'check') {
+	my $leftovers = cmdoutput @git, qw(clean -xdn);
+	if (length $leftovers) {
+	    print STDERR $leftovers, "\n" or confess $!;
+	    fail __
+ "tree contains uncommitted files and --clean=check specified";
+	}
+    }
 }
 
 sub clean_tree () {
@@ -6217,12 +6225,7 @@ sub clean_tree () {
     } elsif ($cleanmode eq 'git-ff') {
 	runcmd_ordryrun_local @git, qw(clean -xdff);
     } elsif ($cleanmode eq 'check') {
-	my $leftovers = cmdoutput @git, qw(clean -xdn);
-	if (length $leftovers) {
-	    print STDERR $leftovers, "\n" or confess $!;
-	    fail __
- "tree contains uncommitted files and --clean=check specified";
-	}
+	clean_tree_check();
     } elsif ($cleanmode eq 'none') {
     } else {
 	die "$cleanmode ?";