nailing-cargo: [oot] clean, facility to clean up linkfarm

Not documented yet, pending command line.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/nailing-cargo b/nailing-cargo
index 106671867be8067015c735fba150d2d9a54946ef..81e1d4ed02ce52960fc70863be070951472aefd7 100755 (executable)
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -89,6 +89,7 @@ our $pass_options;
 our $online;
 our $just_linkfarm;
 our $leave_nailed;
+our $oot_clean;
 
 #
 our %subcmd_props = (
@@ -354,6 +355,7 @@ sub consider_oot () {
     $oot_dir = undef;
     return;
   }
+  $oot_clean //= cfg_bool qw(oot clean);
   $oot_dir //= 'Build';
   $oot_absdir = ($oot_dir !~ m{^/} ? "$worksphere/" : ""). $oot_dir;
 }
@@ -607,9 +609,9 @@ ENDLK
     $pre .= <<'ENDPRE';
         shift;
 ENDPRE
-#    $post = <<'ENDCLEAN';
-#        clean;
-#ENDCLEAN
+    $post = <<'ENDCLEAN' if $oot_clean && !$just_linkfarm;
+        clean;
+ENDCLEAN
   }
   my $addpath = (cfg_uc qw(oot path_add)) //
     $use eq 'really' ? Types::Serialiser::true : Types::Serialiser::false;