sub ensure_a_playground_parent ($) {
my ($spc) = @_;
record_maindir();
- $spc = ".git/$spc";
+ $spc = "$maindir_gitdir/$spc";
my $parent = dirname $spc;
mkdir $parent or $!==EEXIST
or fail "failed to mkdir playground parent $parent: $!";
$spc = ensure_a_playground_parent $spc;
rmtree $spc;
mkdir $spc or die "$spc $!";
- return $playground = "$maindir/$spc";
+ return $playground = $spc;
}
# ----- playtrees -----