+sub clean_tree_check () {
+ # Not yet fully implemented.
+ if ($cleanmode =~ m{^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";
+ }
+ }
+}
+